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HP MEMORY MAP 


(AS OF 4/1/75) 


HP RESIDENT 
TAPE BUFFER 


PRINTER BUFFER 


(NOT CURRENTLY USED) 


HP DDT 


MAG TAPE LOADER 
BASIC BINARY LOADER 


HP - Mi INTERFACE PROGRAM 


as 


WRENWICK LEE 


JUNE, 


MOK 


1972 


REVISED APRIL» 


VERSION 2.6 


SOURCE 


ete 
oe 


1975 


SOURCE 


ate 
as 


54 
OB - 26aeB Jeo 
4000B - 117775 
12000B - 177778 


16000B - 17136B 
17200B - 17356B 
17700B - 177768 


~ WKKL.SOURCE.HPRES.MOD10 


REVISED - FALL 74 FOR HYTYPER BY De. Y- YONAMINE 


REVISED 20 OCT 75 


DDT BREAK-POINT POINTER MOVED TO LOC 3 


IO0 ADDRESSES MODIFIED 


REVISED JULY 76 TO ADD HYTYPER PAUSE FEATURE 


ORG 
BSS 


1778 


SS SS SS SO) SS SSS SS 


VERSION NUMBER STORAGE LOC 


MAKE THIS ONE VERSON 3 


INTERFACE WITH DDT 
DDT BREAKPOINT CELL 


x 


ee 
ae 


ate 
ae 


me sis 


ate 
oe 
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PAGE 2 - HP 


0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 


C0004 
00004 
00005 
00006 
coco? 
c0010 
00011 
00012 
00013 
00014 
00015 
00016 


RESIDENT VERSION 2.8 (7 SEPT 76) 


000000 
114151 
114152 
106706 
106707 
102010 
114112 
114113 
114114 
114120 
114121 
106716 


ate 
” 


> 


ORG 
JSB 
JSB 
CLC 
CLC 
HLT 
JSB 
JSB 
JSB 
JSB 
JSB 
CLC 


4 
PWRIT,I 
PARIT,I 
DMAD 
DMAD2 
10B 
TPIN,I 
RSTIN,I 
CMDIN,I 
PRIN, I 
HYINT,I 
TTY1 


“INTERRUPT CONTROL AND TRANSFER WORDS 
*THESE LOCATIONS ARE REWRITTEN BY ENTRY INTO INIT ROUTINE 


POWER FAIL INTERRUPT 
PARITY ERROR INTERRUPT 
LOC 6 DMA 10 RETURN (IGNORE) 


LOC 
LOC 
LOC 
LOC 
Loc 
Loc 


15 


IGNORE 


DACONICS DATA CHANNEL 
DACONICS CONTROL CHANNEL 
RESTART INTERRUPT 
COMMAND INTERRUPT 

IQMEC PRINTER INTERRUPT 
HYTYPE INTERRUPT 

TTY INTERRUPTS 
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0064 
0065 
0066 
0067 
0067 
0067 
0067 
0067 
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ORG 


REP 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
ELT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
KLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
RLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
HLT 
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100B-17B5 SET LOC 17 TO 77 TO HALT SAFETY FIRST 
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0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0075S 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089S 
0090 
0091 
0092 
0093 
0094 
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00110 


00110 
00111 
C0112 
C0113 
00114 
00115 
00116 
co11? 
00120 
00121 


00122 
00123 
00124 
C0125 
00126 
00127 
00130 
00131 
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000000 


004000 
012000 
000601 
002125 
001165 
000007 
000007 
001165 
002357 
002725 


001434 
001502 
001040 
002156 
002205 
002402 
000722 
002000 


*LOCATIONS 100 THRU 107 ARE RESERVED FOR HP SIO ROUTINE LINKAGES 


TPBUF 


*=CMIN2 IS PERMANENT WHILE CMDIN IS 


ORG 


110B 


THE FOLLOWING ARE ADDRESSES FOR INTERRUPT JUMPS 
TAPE AND PRINT BUFFER LOCATIONS 


OCT 4000 
PRBUF OCT 12000 
TPIN DEF TPINX 
RSTIN DEF XRST 
CMDIN DEF COMND 
TTYIN OcT 7 
TTIN2 ocT 7 
CMIN2 DEF COMND 
PRIN DEF PRNXT 
HYINT DEF HINT 
READC DEF XREAD 
WRITE DEF XWRIT 
CNTRL DEF XCNTR 
SETMD DEF XSETM 
PRINT DEF XPRNT 
HTYPE DEF XHTYP 
SK PIT DEF SKPT 
HDRSR DEF XHDRS 


(30) 

(31) 

(32) ADR OF TAPE COMPL ROUTINE 

(33) ADR OF RESTART ROUTINE 

(34) ADR OF M1 COMNDS ROUTINE 

(35) ADR OF TTY#1 ROUTINE (HALT) 
(36) ADR OF TTY#2 ROUTINE (HALT) 
(37) ADR OF Mi COMND ROUTINE 


HYTYPER INTERRUPT ROUTINE 

DYNAMIC 

WILL CONTAIN ADR OF XREAD ROUTINE 
ADR OF WRITE TO TAPE ROUTINE 

ADR OF XCNTR ROUTINE 

ETC.ee 


00132 
00133 
00134 
00135 
00136 
C0137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
C0150 
CO151 
00152 
00153 


00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 


000377 
000414 
000437 
000467 
000474 
000547 
000554 
000557 
000574 


000606 


000620 
000627 
001313 
000636 
000705 
003071 
003152 
000751 


000000 
003004 
002770 
002611 
002660 
002625 
002710 
002746 


RDSX 
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DEF FRDSX 
RDTW DEF FRDTW 
SNDDA DEF FSNDA 
SNDM1 DEF FSNM1 
REDY DEF FREDY 
RCM1 DEF FRCM1 
TPSTT DEF FTPST 
OUTC DEF FOUTC 
OUTF DEF FOUTF 
EXIT DEF FEXIT 
WRING DEF FRING 
EOT DEF FEOT 
DMAIO DEF FDMAI 
RDTU DEF FRDTU 
XDVER DEF FDVER 
PWRIT DEF PWRFL 
PARIT DEF PARER 
START DEF BEGIN 
* LABEL VARIABLES 
GFAIL OCT 0 
LABEL DEF FORCE 
XGNC DEF GNCHR 
XCHAR DEF CHAR 
XVERT DEF VERT 
XHOR DEF HORIZ 
XSHYT DEF SHYTY 
XHZAP DEF HINIT 


ADDRESSES OF VARIOUS UTILITY ROUTINES 


READ SIX BITS (FROM M1) 
READ TWELVE BITS FROM Mil 
SEND BYTES TO Ml 


CHECK IF TAPE UNIT READY FOR ACTION 
RECEIVE DATA FROM M1 ROUTINE 

GET STATUS FROM DAC COMMAND CHNL 
OUTPUT A COMMAND TO DACONICS CMND CH 
SEND A CONTROL FUNCTION TO DAC CHNL 
SET UP FOR TAPE I10 AND RETURN 

CHECK FOR WRITE RING 

CHECK FOR END OF TAPE 

DO DMA INPUT/OUTPUT 

READ TAPE UNIT ADDRESS FROM Ml 
DEVICE ERROR ROUTINE 

POWER FAILURE INTERRUPT POINTER 
PARITY ERROR INTERRUPT POINTER 

REAL START OF PROGRAM 


FAILURE RETURN ADDRESS FOR GCHR 


GET NEXT CHARACTER 
PRINT OUT CHAR 
VERTICAL COMMAND 
HORIZONTAL COMMAND 
SEND TO HYTYPE 
INITIALIZE HYTYPE 
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0127 
0128 
0129 


0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 


- 0150 


0151 
0152 
0153 


00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
C0213 


00214 


00215 
CO216 
00217 
00220 


CO221 
00222 
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000000 


124153 


000210 
100122 
000202 
100123 
000213 
100124 
000204 
100125 
000205 
100127 
000207 
100126 
000264 
100130 
000102 
100131 


000201 
000221 


ENTER 


OPEND 


AOPTB 
OPMAX 


nto ate 
oe-4 Pik 


ORG 


JMP 


OPERAND TABLE 


OCT 
DEF 
OCT 
DEF 
OCT 
DEF 
OcT 
DEF 
OcT 
DEF 
OCT 
DEF 
ocT 
DEF 
OcT 
DEF 


DEF 
DEF 


2008 


START I 


210 
READC,1 
202 
WRITE,I 
213 
CNTRL,TI 
204% 
SETMD,1 
205 
HTYPE,TI 
207 
PRINT, I 
264 
SKPIT,I 
102 
HDRSR,I 


OPTAB 
OPEND+1 


~- FOR COMMANDS FROM Ml 


READ 


WRITE TAPE 


TAPE CONTROL 


SET MODES FOR TAPE 


HYTYPE IT OUT 


PRINT 


SKIP IT 


HEADER SEARCH 


PAGE 


0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 


0170. 


0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
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00223 
CO224 
00225 
00226 
00227 
00230 
00231 
00232 


00233 
00234 
00235 
00236 
C0223 
00237 


00240 
00241 
CO242 
00243 
00244 
00245 
00246 


CO247 
C0250 
00251 
00252 
C0253 
C0254 
00255 
C0256 


00000 
00001 
00001 
00013 
00011 
00010 
00011 
C0011 
00012 
00014 
00015 
00016 
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000011 
000031 
000121 
000141 
000005 
000045 
000003 
000043 


000203 
000301 
001400 
000110 
000000 
000223 


000000 
000040 
000020 
000010 
000004 
000002 
000020 


000270 
00C261 
000273 
000264 
000275 
000276 
000267 
000277 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
O00CcOQ00 
000000 
000000 
000000 
000000 


REWDC 
RWSDC 
GAPDC 
WFMDC 
BSRDC 
BSFDC 
FSRDC 
FSFDC 


RCcCDC 
wcocDCc 
SELDC 


~~ CLRDC 


CMDTB 
ACMTB 


eee 


RFLAG 
UNXCF 
BDCMF 
UNERF 
BOCPF 
NTNUF 
ILF 


COMER 
DEVER 
DEVNR 
WOKUE 
PFIN 
ROK 
WOK 
DNBOT 


DACONICS 


ate 
oe 


ocT 11 
ocT 31 

OcT 121 

ocT 141 

ocT 5 

ocT 45 

oct 3 

ocT 43 
NON-CONTROL COMMANDS 
ocT 203 

ocT 301 

ocT 1400 

ocT 110 

EQU  REWDC 

DEF  REWDC 

RETURN FLAGS FIELDS 
ocT 0 

ocT 40 

ocT 20 

ocT 10 

ocT 4 

OCT: 2 

ocT 20 

HP => M1 RESPONSE CODES 
ocT 270 

ocT 261 

OcT 273 

OCT 264 

ocT 275 

ocT 276 

ocT 267 

ocT 277 

I/O CHANNEL DECLARATIONS 
EQU OO 

EQU 1 

EQU 1 

EQU  13B 

EQU 118 

EQU  10B 

EQU  11B 

EQU 118 

EQU  12B 

EQU  14B 

EQU  15B 

EQU  16B 


ete 
=e 


COMMANDS FOR TAPE UNIT 
REWIND AND STANDBY 
REWIND AND DESELECT 
BLANK TAPE 


WRITE 


WRITE FILE MARK 
BACKSPACE 1 RECORD 
BACKSPACE 1 FILE 
FORWARD SPACE 1 RECORD 
FORWARD SPACE 1 FILE 


READ 1 
WRITE 
SELECT 


ate wd 
7 Oe 


3" 


RECORD 


1 RECORD 
UNIT #1 


(0) 
(1) 
(2) 
(3) 
(4) 
(5) 
(6) 
(7) 


CLEAR CONTROLLER 


a 


X'Be! 
X'B1! 
X'BB! 
X'B4! 
X'BD! 
X'BE! 
X'BT7! 


ABE 


a 


(TAPE, 
SWITCH REGISTER 


START OFF WITH OTRK 


FOR FU 


. BEGINNING OF DAC COMMAND TABLE 


ste late 
o a 


UNIT EXCEPTION FLAG 

BAD COMMUNICATIONS FLAG 
UNIT ERROR FLAG 

BAD COMPARE FLAG. 

NOT ENOUGH FLAG 
INCORRECT LENGTH FLAG 


COMMUNICATIONS ERROR 
DEVICE ERROR 
DEVICE NOT READY 


WRITE OK, 


UNIT EXCEPTION 


PRINT FINISHED 


READ OK 
WRITE OK 


DISK NOT BOOTSTRAPPED 


AND M1) 


TURE USE 


(BUT CHANGES) 


(NOW OTRK DEFAULT) 


HYTYPE CONTROL CHANNEL 
TELETYPE ADDRESS 


00257 
00260 
00261 
C0262 
00263 
00264 
C0265 
00266 
00267 
C0270 
00271 
00272 
00273 
CO274 


00275 


00002 
00006 
00007 
00276 
CO276 
00277 


CO300 
00301 
00302 
00003 
00303 
003204 
00305 


00306 
00307 
00310 
C0311 


00312 
C0313 
00314 
00315 
00316 
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000000 
O77777 
100000 
000000 
000000 


000000 


000263 
000000 
000000 
000000 
000270 
000000 
000000 
000273 


000000 


0000CO 
000000 
000000 
020010 
000000 
004000 


000000 
000014 
000000 
000000 
000000 
ooccood 
000000 


000200 
000000 
017400 
000000 


000077 
000000 
000010 
000012 
000000 


FLAGS 
CPROC 
CPROS 
PNTRX 
$1 
SEND 
PSNDA 
NUMDA 
DASAV 
TUNIT 
ATUNT 
RETRY 
BYTCN 
ABYTC 


PBUFF 


WCAD 
DM AD 
DMAD2 
DMAC1 
DX118 
DMAC2 


OTH 


ate 
oe 


OCcT 
OCT 
OCT 
OCT 
BSS 
BSS 
DEF 
OCT 
BSS 
OCT 
DEF 
ocT 
ocT 
DEF 


(8-BIT BYTES) 


OCcT 


PARAMETERS FOR DMA 1/0 


EQU 
EQU 
EQU 
OCT 
EQU 
ocT 
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ER GLOBALS FOR ALL ROUTINES 


0 
T7777 
100000 


UNIT 


OOon OF ONY YY CO 


BYTCN 


0) 


2B 

6B 

7B 
020010 
DMAC1 
4000 


PRINTER DMA STUFF 


PWCNT 
DMAP1 
DMAP2 
WCADP 
PRTLM 
PBI 

XPBUF 


NSLEW 
WPTR 

NULLE 
NULLF 


B77 
ZERO 
B10 
K10 
ODD 


BSS 1 

ABS PRiICC 
BSS 1 

EQU 3B 
BSS 1 

BSS 1 

BSS 1 

OCT 200 
BSS 1 

OcT 17400 
BSS 1 
CONSTANTS 
OCT 77 
OcT ) 

OCT 10 
DEC 10 
BSS 1 


STATE OF COMMAND VECTOR 

TURN OFF COMMAND ACTIVE BIT 

TURN ON COMMAND ACTIVE BIT 
(POINTER) ADDRESS FOR READ SIX INTO 
FIRST OF TWO WORDS FOR SNDDA 

SECOND OF TWO WORDS FOR SNDDA 
ADDRESS OF TWO WORD SNDDA BUFFER 
NUMBER OF WORDS TO SEND TO M1 

SAVE CONTENTS OF A REGISTER 

TAPE UNIT ADDRESS 

ADDRESS POINTER 

RETRY COUNTER IF TAPE GIVES HARD TIM 
NUMBER OF BYTES FOR READ OR WRITE 
ADR OF BYTCNT 


ADDRESS OF PRINT OR TAPE BUFFER 


FIRST DMA WORD 


2ND DMA CNTL WRD (TAPEBUFF EP) 


PRINTER BYTE LIMIT 

PRINTER BYTE INDEX 

TO ALLOW USE OF EITHER TAPE OR 
PRINTER BUFFER 


NULL CHARACTER=ASCII 378 


DECIMAL TEN 
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0259 
0260 
0261 
0262 
0263 
026% 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 


00317 
00320 
C0321 
00322 
00323 
00324 
00325 
00326 
C0327 
C0330 
C0331 
00332 
C0333 
00334 
CO0335 
00336 
00337 
00340 
00341 
00342 
00343 
00344 
00345 
C0346 
00347 
00350 
00351 
C0352 
C0353 
00354 
00355 
C0356 
00357 
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000500 
000507 
000561 
000562 
000567 
000614 
000615 
000603 
000555 
000631 
000622 
000276 
000011 
000011 
o0o000CcO 
000317 
000000 
000000 
000000 
000341 
000000 
000406 
000000 
000000 
100002 
000017 
177700 
000002 
000064 
177777 
177766 
000000 
177765 


CMNDS 


CHNLO 
CHNL? 


CHNL 


CMLST 
INCR 
KNT 
CBUFF 
ACBUF 
PTXSV 
MSK1 
TRHRD 
SAVC 
KBGNG 
Bl? 
MSK4 
K2 
K100 
KM1 
KM10 
NRFLG 
KM11 


PART 


DEF 
DEF 
DEF . 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
BSS 
DEF 
BSS 
OcT 
OcT 
DEF 
OCT 
OCT 
OcT 
ocT 
OCcT 
OocT 
OcT 
OCT 
ocT 
OCT 
OCT 
BSS 
DEC 
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ate 
oe 


Cxo5 
CX10 
cx90 
CX92 
CxX93 
CXx99 
Cx100 
CxX110 
CX115 


100002 
17. 
177700 
2 

64 
177777 
177766 
1 

-11 


4 +, 2 ty ale ate ae ae ate we ate ate 
4 Pts stg bt Pad pid = ae Pi a a ped 
, See VITESSE S Sn = 


READY 

REDY 

OUTC 

OUTC 

OUTC 

EXIT 

EXIT 

TPIN 

TPSTT 

EOT 

WRING 

DMAC1 

9 TRACK COMMAND CHANNEL 
NOTHING HERE 


CHARACTER BUFFER 

RDTW SAVE AREA 

SAVE POINTER 

BUSY OR REWIND MASK 

WAITING FOR DEVICE READY COUNTER 
SAVE TAPE FUNCTION COMMAND 


MINUS 1 
MINUS TEN 
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0296 MEO OS EOE E ESE 

0297 * 

0298 ‘ = DISPLAY COMMUNICATIONS WITH THE M1 IN WAIT LOOP 
0295 * ' 

0300 * BITS(S) SIGNIFICANCE 

0301 * . 

0302 * 0-6 LAST COMMAND FROM Mil 

0303 * 7 Mi HAS OUTPUT CHARACTER READY 

0304 * 8-14 LAST RESPONSE FROM HP 

0305 cS 2 HP HAS OUTPUT A CHARACTER 

0306 ** 

0307 * HP RESPONSE FIELD 

0308 * 

0309 * 61 DEVICE ERROR 

0310 * 64 WRITE OK, BUT UNIT EXCEPTION 

0311 * 67 WRITE OK 

O312 * 70 COMMUNICATIONS ERROR 

0313 ms 75 PRINT FINISHED 

0314 * 76 READ OK 

0315 * 

0316 * 

0317 x 500 COMMAND FIELD 

0318 * 

0315 = 2 WRITE TAPE 

0320 * 4 SET TAPE MODE 

O321 * 5 HYTYPE 

0322 * 7 PRINT 

0323 a 10 READ 

0324 * 13 TAPE CONTROL 

0325 ** 64 SKIP IT 

0326 * 77 CLEAN UP 

0327 * 102 HEADER SEARCH 

0328 * 

0329 se ost oste ook one ote ook ok ook ote oe oo 

0330 * 

0331 00360 000000 ENTRY NOP SAVE THE CALLING ADDRESS TO SEE HOW 
0332 * WE ENDED UP AT THE DO-NOTHING LOOP. 
0333 00361 060750 LOOP LDA ASAVE READY THE HP 

0334 00362 010725 AND K177 RESPONSE FIELD 

0335 00363 001727 ALF,ALF 

0336 00364 102313 SFS M110 IS A FLAG SET? 

0337 00365 002001 RSS NO. 

0338 00366 030726 IOR K200 YES. ADD BIT 7 

0339 00367 102213 SFC M110 IS B FLAG SET? 

0340 00370 030727 IOR BIT1I5 YES.- ADD BIT 15 

0341 00371 070001 STA B TEMPORARY STORAGE 
0342 00372 060746 LDA SVCMD MASK LAST COMMAND TO 7 BITS. 
0343 00373 010725 AND K1i77 

0344 00374 030001 IOR B MERGES 

0345 C0375 102601 OTA SR DISPLAY IN SWITCH REGISTER 


0346 00376 024361 JMP LOOP AND WAIT SOME MORE 
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0348 woo KR Oo ook ose ose ook ok oe ok ok ok ok ook OF OR OD § KX ee oe He ue Mo Me ok oko 9 
0349 = 

0350 00377 000000 FRDSX NOP 0 

0351 * READ SIX BIT DATA 

0352 a CALL WITH ADDRESS FOR VALUE IN PNTRX 

0353 C0400 102313 SFS M1I0 

0354 00401 024400 JMP x=] 

0355 00402 106513 LIB M1iI0 GET 6-BIT DATA (11XXXXXX) 

0356 C0403 005727 BLF,BLF 

0357 00404 005200 RBL GET ONE BIT INTO SIGN, OTHER BIT 
0358 00405 006031 SSB,»SLB,RSS INTO LOW ORDER, CHECK FOR TWO BITS §S 
0359 00406 025234 JMP BDDAT NO, IN ERROR 

0360 00407 005124 BRS,BLR THIS CLEARS THE TWO BITS 

0361 00410 005227 RBL,BLF 

0362 00411 005222 RBL,RBL PUTS INTO LOW ORDER PART OF WORD 
0363 00412 174262 STB PNTRX,1 

0364 00413 124377 JMP FRDSX,1 

0365 ** 

0366 sis ots ots oats oats ote oats ots ose ots EE * F R D PT We He se Me ok se ok os 

0367 * READ TWELVE BIT DATA 

0368 * CALL WITH ADDRESS FOR VALUE IN PNTRX 

0369 00414 000000 FRDTW NOP 0 

0370 00415 002400 CLA 

0371 00416 064262 LDB PNTRX SAVE POINTER 

0372 00417 074343 STB PTXSV 

0373 00420 064342 LDB ACBUF CHARACTER BUFFER ADDRESS 

0374 00421 074262 STB PNTRX 

0375 00422 114132 JSB RDSX,1I GET FIRST SIX 

0376 00423 160262 LDA PNTRX,1 

0377 00424 010350 AND B17 GET BOTTOM FOUR BITS 

0378 Q0425 001700 ALF A 

0379 C0426 001222 RAL,RAL 

0380 00427 114132 JSB RDSX,I 

0381 00430 130262 IOR PNTRX,1 GET NEXT SIX 

0382 00431 001700 ALF : 

0383 C0432 001222 RAL,RAL 

0384 00433 114132 JSB RDSX,1 

0385 00434 130262 IOR PNTRX,1I GET FINAL SIX 


0386 00435 170343 STA PTXSV,1 STORE AWAY 
0387 00436 124414 JMP FRDTW,1 


PAGE 


0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
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er se Sk CARS OR SOS F S N D A Stee Migte” cater. Gsiee See”, ieee eee ae 

SEND N 6 BIT (N=6) WORDS TO M1 

IN NUMDA 

** VALUE IN S1, SEND TWO CONSECUTIVE LOCATIONS 

C0437 000000 FSNDA NOP 6) 
00440 060266 LDA NUMDA 
00441 050313 CPA ZERO 
00442 124437 JMP FSNDA,I 
00443 003004 CMA,INA 
00444 070266 STA NUMDA GET NEGATIVE NUMBER OF WORDS 
00445 064263 LDB $1 GET CONTENTS INTO B 
00446 070453 STA GTi 
00447 060264 LDA SEND GET SECOND HALF INTO A 
00450 034453 DARRQ IS2 GT1 
00451 024454 JMP DARRR 
00452 024456 JMP DAR PT 
C0453 000000 GT1 OcT 0 TEMPORARY STORAGE. 
00454 101106 DARRR RRR 6 
00455 024450 JMP DARRQ 
00456 070267 DARPT STA DASAV 
00457 010312 AND B77 GET SIX BITS 
00460 114135 JSB SNDM1,1 
00461 034266 ISZ NUMDA 
00462 024464 JMP +2 
00463 124437 JMP FSNDA,I FINISH 
00464 060267 LDA DASAV CONTINUE 
00465 100106 RRL 6 GET NEXT SIX BITS 
00466 024456 JMP DAR PT 

se ok ote ote ote osteo ESS F S N M 1 Stef) ieee Vaes SeY 500° sees “Se: Vase 

ROUTINE TO CHECK IF Mi READY TO RECEIVE 

* AND SENDS A 6-BIT WORD WHEN IT IS * * * 

00467 000000 FSNM1 NOP 0 
00470 102213 SFC M110 
00471 024470 JMP ae 
00472 102613 OTA M110 
00473 124467 JMP FSNM1,1 


PAGE 


0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
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00474 


00475 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
C0520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 


000000 


060235 
006400 
075275 
102611 
006400 
074356 
064315 
074272 
064353 
074345 
102511 
001727 
002011 
024521 
060270 
070264 
060352 
070266 
114150 
124474 
010344 
002003 
024545 
034345 
024507 
060356 
002002 
024542 
002004 
070356 
060251 
114135 
060270 
070264 
060352 
070266 
114134 
064347 
074345 
024507 
034474 
124474 


FREDY 
: ERROR RETURN 


cCXO5 


CxX10 


NONO 


GRIND 


OKNOW 


CHE 


NOP 


LDA 
CLB 
STB 
OTA 
CLB 
STB 
LDB 
STB 
LDB 
STB 
LIA 
ALF 
SLA 
JMP 
LDA 
STA 
LDA 
STA 
JSB 
JMP 
AND 
SZA 
JMP 
1SZ 
JMP 
LDA 
SZA 
JMP 
INA 
STA 
LDA 
JSB 
LDA 
STA 
LDA 
STA 
JSB 
LDB 
STB 
JMP 
TS2 
JMP 


(7 SEPT 76) 


SL en a sd 
Prd Po 


CK TO SEE IF THE T 


0) 


(FREDY), 


SELDC 


EOFLG 
CMND 


NRFLG 
K10 
RETRY 
K100 
TRHRD 
CMND 


» ALF 
»RSS 


a} 7 
TUNIT 
SEND 

K2 
NUMDA 
XDVER,1I 
FREDY,1I 
MSK1 


»RSS 


OKNOW 
TRHRD 
CX10 

NRFLG 


GRIND 


NRFLG 
DEVNR 
SNDM1,1 
TUNIT 
SEND 

K2 
NUMDA 
SNDDA,I 
KBGNG 
TRHRD 
Cx10 
FREDY 
FREDY,I 


GOOD RETURN 


sok F R E 2D Yo se oats 
APE DEVICE IS READY 


(FREDY)+1 
SELECT COMMAND 


SELECT COMMAND 
NOT READY FLAG 
10 RETRIES 


FOR REPEATED ATTEMPTS AT DEVICE SELE 
GET STATUS 


TAPE OFF LINE 
YES NOTIFY VIA DEVICE ERROR 
SEND TAPE UNIT ADDRESS 
(TWO BYTES) 
GO AND TATTLE 
WANT TO ERROR RETURN 
BUSY OR REWIND? 


ITS OK NOW 


CHECK ON NOT READY FLAG. 


DEVNR ALREADY SENT, THEY KNOW. 


GOTO NORMAL RETURN POINT 


PAGE 


0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0491 
0498 
0499 
0500 
0501 


0502 
0503 
0504 


0505 


0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 


14 


C0547 
C0550 
00551 
00552 
00553 


C0554 
00555 
00556 


00557 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 


00574 
00575 
00576 
00577 
00600 


00601 
00602 
00603 
00604 
00605 


000000 
102313 
024550 
102513 
124547 


000000 
102511 
124554 


000000 
070346 
102611 
102511 
010314 
002003 
124557 
064236 
106611 
002404 
114143 
060346 


024561 


o00co0ood 
114141 
002404 
114143 
124574 


000000 
103100 
106711 
102100 
124606 


ee 
or 4 


CX93 


FOUTF 


RETURN 
TPINX 


€X110 


- HP RESIDENT VERSION 2-8 


(7 SEPT 76) 


* F RC M 1 

NOP O 

SFS M110 

JMP loa | 

LIA M110 

JMP FRCM1,1 
er an ae ee a a SS FT PS T % % % ok ok os ok oo zt 
GET TAPE STATUS (POSITION, WRITE RING, ETC) 
NOP 0 

LIA CMND 

JMP FTPST,1 


sie ais Se oie Se tie ate ook: ale ot < F O U T C mu Me Me oN Ms ome ose Me Ome ms 
ROUTINE TO OUTPUT A COMMAND TO DACONICS CMND CHNNEL 
NOP 0 

STA SAVC SAVE DAC COMMAND (FROM REG A) 
OTA CMND OUTPUT COMMAND 

LIA CMND GET TAPE STATUS 

AND B10 

SZA,RSS COMMAND REJECTED? 

JMP FOUTC,I NO 

LDB CLRDC YES 

OTB CMND CLEAR THE CONTROLLER 
CLA,INA 

JSB EXIT,I 

LDA SAVC DO COMMAND AGAIN 

JMP Cx90 

RETRY COUNTER TO BE INSERTED HERE IF INFINITE LOOPS 
ARE A HAZARD 

sts ooste otts ots ole osteo F (@) U vT F sre.) caer) wae Ge 

OUTPUT A FUNCTION 

NOP 6) 

JSB OUTC,I 

CLA,INA 

JSB EXIT,I 

JMP FOUTF,I1 

POINT FROM TAPEIO VIA INTERRUPT CONTROL MECHANISM 
NOP 6) 

CLF 0 TURN OFF INTERRUPT SYSTEM 
CLC CMND CLEAR COMMAND CHANNEL CONTROL 
STF 9) TURN ON INTERRUPTS SYSTEM 
JMP FEXIT,I EXIT TO CORRECT ROUTINE 


PAGE 


0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
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00606 
00607 
00610 
C0611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 


00627 
00630 
00631 
00632 
00633 
00634 
00635 


ooco0o 
103100 
002011 


-024612 


001110 
103706 
103111 
102711 
102100 
014360 
000000 
074474 
102511 
001727 
002020 
024513 
124620 


000000 
074474 
102511 
001727 
001710 
024513 
124627 


ste pte ate ate 
Ped Pa 4 oe 


NOP ) 
CLF 0 DISABLE INTERRUPT SYSTEM 
SLA,RSS SET COMMAND CONTROL F/F 
JMP +] ALWAYS DO IT 
ARS,SLA SET DMA CONTROL F/F? 
STC DMAD,C SET DMA INTERRUPT CONTROL 
CxX99 CLF CMND 
C€X100 STC CMND SET CMND CHNL INT. CONTROL 
STF 0 ENABLE INTERRUPT SYSTEM 
JSB LOOP-1 I/O WAIT 
FRING NOP 0 
STB FREDY RETURN POINT FOR ERROR 
CX210 LIA CMND 
ALF,ALF 
SSA WRITE PROTECTED? 
JMP NONO YES, FLAG VIA DEVICE ERROR 
JMP FRING, I ITS OK 
Me os Oe OOS - PF E O T ae <a + a <a * + Se > a * Sa? a SY SF 4 
* CHECK IF END OF TAPE ENCOUNTERED 
FEOT NOP 0 . 
STB FREDY RETURN POINT FOR ERROR 
CX200 LIA CMND 
ALF,ALF 
ALF,SLA EOT? 
JMP NONO YES 
JMP FEOT,I ITS OK 


SET UP FOR RE 


ate ate 
oe ae 


F EX IT * *% 3 9 Ro 
TURN VIA INTERRUPT PROCESS 
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0550 gs: age Sg SS ai oS aie te te aie SS Sate * F R D PT U *% Ke SF Xk Se Sk ose Mk sk sk ok otk ose ck oak ot 
0551 3 READS TAPE UNIT ADDRESS AND PUTS IN TUNIT 

0552 * ALSO PUTS 7 TRK OR 9 TRK CONTROLLER ADDRESS 

0553 * IN CHANNEL PART OF TAPE COMMANDS 

0554 00636 O00000 FRDTU NOP 0 

0555 00637 060271 LDA ATUNT 

0556 00640 070262 STA PNTRX 

0557 00641 114132 JSB RDSX,I 

0558 00642 002404 CLA,INA A=1 MEANS 9 TRACK 

0559 00643 024646 JMP *+3 KLUDGE TO ACCEPT BOTH. 

0560 00644 024646 JMP *+2 

0561 00645 025240 JMP UNERR WRONG TAPE UNIT NUMBER 

0562 00646 060333 LDA CHNLI NOW ONLY 9 TRACK, EASY TO MODIFY 
0563 C0647 070335 STA CHNL TO DECIDE FOR 7 TRACK 

0564 00650 064336 LDB CMLST LIST OF CHANNEL COMMAND ADDRESSES 
0565 00651 074337 STB INCR 

0566 00652 164337 LDB INCR,I B=ADDR OF FIRST OF COMMANDS 
0567 00653 160001 LDA B,I A=COMMAND 

0568 00654 010312 AND B77 CHECK IF SAME CONTROLLER 

0569 00655 050335 CPA CHNL 

0570 00656 124636 JMP FRDTU,I YES 

0571 00657 060357 LDA KMil (PARAMETER) COMMANDS PRESENT IS ELEV 
0572 00660 070340 STA KNT 

0573 00661 160001 MORE LDA ByI LOOP, AND PUT IN CHANNEL NUMBER 
0574 00662 010351 AND MSK4 

0575 00663 030335 IOR CHNL 

0576 00664 170001 STA B,I 

0577 00665 034340 ISZ KNT ALL COMMANDS FINISHED? 

0578 00666 024670 IMP  JM624 NO 

0579 00667 024673 JMP +. YES 

0580 00670 034337 JM624 ISZ INCR 

0581 00671 164337 LDB INCR,I GET NEXT ADDRESS 

0582 00672 024661 JMP MORE 

0583 00673 034337 1Sz INCR 

0584 00674 164337 LDB INCR,I 

0585 00675 060335 LDA CHNL 

0586 00676 040354 ADA KM1 

0587 C0677 070335 STA CHNL 

0588 00700 160001 LDA B,I 

0589 00701 010351 AND MSK4 

0590 00702 030335 IOR CHNL 

0591 00703 170001 STA Byl 

0592 00704 124636 JMP FRDTU,I 


0593 * A HAS COMMAND, B HAS ADDRESS 


PAGE 


0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
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00705 
C0706 
00707 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 


00722 


00723 


000000 
103100 
060250 
070750 
114135 
114134 
060257 
010260 
070257 
060315 
070272 
102100 
014360 


000000 


124705 


ate ate 
Pad a" 


FDOVER 


SKPT 


RETURN POINT FOR DEVICE (IE TAPE OR PRINT) 


VERSION 2-8 (7 SEPT 76) 


FDV ER * % *% %& 


FOR THE CONDITION WHERE 

UNRECOVERABLE ERROR (EG RETRIES EXHAUSTED, UNABLE TO SELECT, 
OR TAPE UNIT OFF-LINE) 

INSERT CODE FOR POSSIBLE BRANCH TO RESTART HERE 

UPON ENTRY (TAPE) UNIT ADDRESS IN SEND 

COUNT IN NUMDA 

NOP 0 

CLF 0) DISABLE INTERRUPT SYSTEM 

LDA DEVER 
STA ASAVE 
JSB SNDM1,1 
JSB SNDDA,I 
LDA FLAGS 


SAVE HP RESPONSE TO M1 COMMANDS 
TELL M1 DEVERR 


AND CPROC FREE FOR A NEW COMMAND 
STA FLAGS 
LDA K10 


STA RETRY RESET RETRY COUNTER 

STF ) ENABLE INTERRUPT SYSTEM 

JSB LOOP-1 GO TO LOOP UNTIL ACKNOWLEDGEMENT 
SKIPIT OR REPEAT 

NOP 0 

MAKE AS IF IO WAS DONE PROPERLY 

JMP FDVER+I . 


Tg 


PAGE 18 ~ HP RESIDENT VERSION 2-8 (7 SEPT 76) 


0621 
0622 
0623 
062% 
0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 


0646 


0647 


0649 
0650 


0651 


0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 


C0724 
00725 
00726 
00727 
00730 
00731 


00732 
00733 
00734 
00735 
00736 


00737 
00740 
00741 
C0742 
00743 
00744 
00745 
C0746 
00747 
00750 


00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 


177770 
000177 
000200 
100000 
000004 
177774 


000000 
000000 
000000 
000732 
000734 


000277 
001265 
177400 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


103100 
002500 
070257 
002004 
102601 
002040 
024766 
102313 
024754 
106513 
054737 
024766 
024754 


TBITS 
k177 
K200 
BIT15 
K4 
KM4 
XCNTR 
DUM 
CTRSV 
CNTOP 
ADUM 
ACNTP 


CNULL 
ABD1 
HIHAF 
TC 
TC2 
TC3 
TC4 
SVCMD 
CMDSV 
ASAVE 


BEGIN 


CLEAN 


PART 2 -- LOCAL CONSTANTS 


SN sd 
oe Pe-4 


ate ate ate ate ate ate ate ote ate ate ate ate a 
Prd *." o° " oe Pat-4 re mee = Pid ae rx4 oF 


OCcT 177770 

OCcT 177 7 BIT MASK 

ocT 200 

ocT 100000 

DEC 4 

DEC -4 

VARIABLES: 

OCT 0 

OCT 0 SAVE CONTROL COMMAND 

OcT 0 CONTROL COMMAND FOR TAPE UNIT 
DEF DUM ADDRESS FOR DUM 

DEF CNTOP 

x * M1 COMMAND DECLARATIONS * * % 3 GR Gk RE ae ok 
ocT 277 SPECIAL CODE FROM M1 (KDF CLEANUP) 
DEF BADD1 ADDRESS OF BADD1 

ocT 177400 

OcT 0 SAVE REGISTER 

OCT 0 SAVE REGISTER 

OCT 1) SAVE REGISTER 

OCT e) SAVE REGISTER 

OCT ) SAVE COMMAND CODE 

OCT 0 SAVE Mi COMMAND 

OCT 0 SAVE HP RESPONSE 


PROGRAM START ENTRY POINT 


CLF 0 TURN OFF INTERRUPTS 

CLA,CLE RESET START COUNTER 

STA FLAGS RESET FLAGS 

INA INCREMENT COUNTER 

OTA SR DISPLAY COUNT 

SEZ FINISHED ON OVERFLOW 

JMP INIT GIVE UP TRYING 

SFS M110 TRY TO CLEAR OUT CHARACTERS FROM Ml 
JMP CLEAN FOR ABOUT .5 SEC 

LIB M110 

CPB CNULL UNTIL WE GET A 277 FROM KDF CLEANUP 
JMP INIT 

JMP CLEAN 
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0666 zt INITIALIZE INTERRUPT SYSTEM (> 
0667 ze MOST LOCATIONS INITIALIZED AT ASSEMBLE TIME “4 
0668 4 . 2 
066S 00766 103100 INIT CLF 0 DISABLE INTERRUPT SYSTEM (* 
0670 00767 061022 LDA LEN : 
0671 00770 071023 STA LIMIT | 
0672 00771 061024 LDA AINIT (* 
0673 00772 070266 STA NUMDA BEGINNING OF INTERRUPT COMNDS a 
0674 00773 064730 LDB K4 BEGINNING OF INTERRUPT LOCATIONS 
0675 00774 160266 LDA NUMDA,I GET INSTRUCTION 
0676 00775 170001 STA B,I STORE IT IN LOCATION 
0677 00776 006004 INB GET NEXT INTERRUPT LOCATION 
0678 00777 034266 182 NUMDA GET NEXT INSTRUCTION ( 
0679 01000 035023 1sz LIMIT ARE WE THROUGH? 
0680 01001 024774 IMP ze S NOPE , 
0681 01002 060117 LDA CMIN2 Cc 
0682 01003 070114 STA CMDIN 7 | 
(° 
C 
( 
/ 
( 
( 
( 
( 
( 
( 
( 
( 
C 
( 
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0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
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01004 
01005 
01006 
01007 


01010 
01011 


01012 
01013 
01014 
01015 


01016 
01017 


01020 
01021 
C1022 
01023 
01024 
01025 
01026 
01027 
01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01040 


060236 
102611 
102311 
025006 


106706 
106707 


106711 
106710 
106716 
114163 


103712 
103713 


102100 
014360 
177765 
000000 
001025 
114151 
114152 
106706 
106707 
102010 
114112 
114113 
114114 
114120 
114121 
106716 
000000 


TAIL 


CLEAR TAPE CONTROLLER(S) 


LDA CLRDC 
OTA pcgcc 
SFS DC9CC 
JMP *- 4) 
CLEAR DMAIO 
CLC DMAD 
CLC DMAD2 
FOLLOW SUIT 
CLC DC9CC 
CLC DC9DC 
CLC TTY1 
JSB XHZAP,1I 


ABORT, 


AND OTHER DEVICES 


IF WAS DOING 


DMA SET TO INACTIVE STATE 
DMA SET TO INACTIVE STATE 


FOR ALL OTHER DEVICES 


INITIALIZE THE HYTYPE 


ALL INITIALIZED EXCEPT FOR M1IO AND RESTART 
WHICH WE WANT CONTROL TO BE ALWAYS SET 


STC 
STC 
OK: 
STF 
JSB 


INITX- 


BSS 
DEF 
JSB 
JSB 
CLC 
CLC 
HLT 
JSB 
JSB 
JSB 
JSB 
JSB 
CLC 
EQU 


RSTRT,C 
Mil0 si 
WAIT 


o 
LOOP-1 
TAIL 

1 
INITX 


PWRIT,I 
PARIT, I 


DMAD 
DMAD2 
108 
TPIN,1 


RSTIN,I 
CMDIN,I 


PRIN,I 


HYINT,I 


TTY1 


a 


POWER FAIL INTERRUPT 


PARITY 


LOC 6 DMAIO RETURN 


Loc 10 
LOC 11 
Loc 12 
LOC 13 


LOC 14 


Loc 15 
IGNORE 


ERROR INTERRUPT 
(IGNORE) 


DACONICS DATA CHANNEL 
DACONICS CONTROL CHANNEL 
RESTART INTERRUPT 
COMMAND INTERRUPT 
PRINTER CHNL 1 INTERRUPT 


HYTYPE INTERRUPT 
TTY INTERRUPTS 
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0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0738 
0739 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
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01040 


01041 


01042 
01043 
01044 
01045 
01046 
01047 
01050 
01051 
01052 
01053 
01054 


01055 
C1056 
01057 
01060 
01061 
C1062 
01063 
01064 
01065 
01066 
01067 
01070 
01071 
01072 
01073 
01074 
01075 
01076 
01077 
01100 
01101 
01102 
01103 
01104 
01105 
01106 
01107 
01110 


OO0000 XCNTR 


114147 


060735 
070262 
114132 
060736 
070262 
114132 
060724 
010734 
002002 
025242 
114136 


025156 
060734 
002003 
025071 
003004 
002007 
025073 
002007 
025075 
002007 
025103 
025111 
060223 
025147 
060224 
025147 
065146 
114144 
114145 
060225 
114142 
025156 
065146 
114144 
114145 
060226 
114142 
025156 


ONWRD 


REWC 


REWS 


GAPC 


WEMC 


sig. aie. ost oats: 38s X Cc N T R 
NOP 0 
TAPE MOTION CONTROL IS HANDLED HERE 
TAPE UNIT # AND INITIALIZE 


JSB GET 


FOR 


RDTU,1 
COMMANDS IF NECESSARY 


PUT COMMAND (TAPE CONTROL) IN CNTOP, COUNT IN DUM 
LDA ADUM COUNT ADDRESS 

STA PNTRX GET COUNT 

JSB RDSX,1 GET NUMBER OF OPERATIONS 
LDA ACNTP COMMAND OPERATOR ADDRESS 
STA PNTRX 

JSB RDSX, I GET COMMAND 

LDA TBITS COMMAND MASK 

AND CNTOP IF .NE~ Oy, THEN CONTOP TOO LARGE. 
SZA A 

JMP BDCOP 

JSB REDY, I 


CHECK TO SEE IF DEVICE IS READY, FOR EXAMPLE 
THE TAPE MIGHT BE OFF LINE, BUSY OR UNAVAILABLE 
FOR SOME REASON OR ANOTHER 

FIRST LOCATION AFTER IS AN ERROR RETURN 


JMP XCNTF WELL, TOO BAD. 

LDA CNTOP CONTROL OPCODE 

SZA,RSS 

JMP REWC =0 GO TO REWIND COMMAND 
CMA,INA NEGATE CONTROL OPCODE 
INA,SZA,RSS 

JMP REWS =1 REWIND AND DESELECT 
INA,SZA,RSS 

JMP GAPC =2 GAP 

INA,SZA,RSS 

JMP WFMC =3 WRITE FILE MARK 

JMP POSIT >3 MUST BE POSITION COMMAND 
LDA REWDC REWIND 

JMP REW GO 

LDA RWSDC REWIND AND DESELCT 

JMP REW 

LDB AXCNT 

JSB WRING,TI 

JSB EOT,I CHECK ON END OF TAPE 
LDA GAPDC GAP IT 

JSB OUTF,I 

JMP XCNTF 

LOB AXCNT 

JSB WRING, 1 CHECK IF WRITE PROTECTED 
JSB EOT,I END OF TAPE? 

LDA WFMDC WRITE FILE MARK 

JSB OUTF,I GO 

JMP XCNTF 


PAGE 


0772 
0773 
0774 
0775 
0776 
O777 
0778 
O77S 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
O791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
0809 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
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01111 
01112 
01113 
01114 
01115 
01116 
01117 
01120 
O1i2i 
C1122 
01123 
01124 
01125 
01126 
01127 
01130 
01131 
01132 
01133 
01134 
01135 
01136 
01137 
01140 
01141 
01142 
01143 
C1144 
01145 
01146 
01147 
01150 
01151 
01152 
C1153 
01154 
01155 
01156 
01157 
01160 
01161 
01162 
01163 
01164 


064732 
007004 
074732 
006021 
025156 
060237 
040734 
160000 
070733 
114140 
070001 
060733 
001310 
025133 
005727 
005723 
004010 
025156 
025137 
005727 
005700 
025156 
001200 
114142 
034732 
025144 
025156 
060733 
025122 
001156 
071163 
114140 
011164 
002002 
025156 
061163 
114142 
061040 
170123 
002400 
071275 
025526 
000000 
000040 


POSIT 


LP1l 


SENDC 


AXCNT 
REW 


XCNTF 


KEEP 
BOT 
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CONTROL OPERATIONS TO PERFORM 


LDB DUM 
CMB,INB 

STB DUM 
SSB,RSS 

JMP XCNTF 
LDA ACMTB 
ADA CNTOP 
LDA A,I 
STA CTRSV 
JSB TPSTT,1 
STA B 

LDA CTRSV 
RAR,SLA 

JMP *+5 
BLF,BLF 
BLF,RBR 

SLB 

JMP XCNTF 
JMP SENDC 
BLF,BLF 

BLF 

JMP XCNTF 
RAL 

JSB OUTF,I 
ISzZ DUM 
JMP +2 
JMP XCNTF 
LDA CTRSV 
JMP LPi 
DEF XCNTF 
STA KEEP 
JSB TPSTT,1 
AND BOT 
SZA 

JMP XCNTF 
LDA KEEP 
JSB OUTF,I 
LDA XCNTR 
STA WRITE,1 
CLA 

STA EOFLG 
JMP BYPAS 
BSS 1 

OcT 40 


NEGATE COUNT FOR NUMBER OF 


BAD COUNT 
SO IGNORE IT. 
BEGINNING OF DAC COMMAND TABLE 


CHECK IF FORWARD OR BACKWARD 


BACKWARDS 
POSITION 4 => POSITION O 


BOT? YES, FINISH. 


FORWARD 
POSITION 3 => POSITION O 


RESTORE COMMAND (MOVE BITS BACK) 
ORDER IT DONE 
ENOUGH TIMES, FINSHED? 


YES 
NO,DO MORE 


ALREADY AT BOT? 


YES 

NO 

REWIND 

FIXUP FOR RETURN THRU WRITE ROUTINE 


BOTTOM OF TAPE CODE. 
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0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
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01165 
C1166 
01167 
01170 
01171 
01172 
01173 
01174 
01175 
01176 
01177 
01200 
01201 
01202 
01203 
01204 
01205 
01206 


01207 
01210 
01211 
01212 
01213 


01214 
01215 
C1216 
01217 
01220 
01221 
01222 
01223 


000000 
103100 
070742 
074743 
060257 
002020 
025232 
103513 
070746 
050737 
024766 
064221 
150001 
025207 
044352 
054222 
025236 
025201 


006004 
164001 
060257 
030261 
070257 


061165 
070747 
060742 
070744 
060743 
070745 
102100 
114001 


ENTRY POINT FOR RECETI 


COMND NOP 
CLF 
STA 

STB 

LDA 

SSA 

JMP 

LIA 

MEG STA 
CPA 

JMP 

LDB 

CHOCH CPA 
JMP 

ADB 

CPB 

JMP 

JMP 


MATCH INB 
LDB 

LDA 

IOR 

STA 

SAVE STATE 
LDA 

STA 

LDA 

STA 

LDA 


STA 
STF 
JSB 
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0 

0 

TC 
TC2 
FLAGS 


UNXCC 
M11I0,C 
SVCMD 
CNULL 


C 0 M N D see isles cate 
VING M1 COMMANDS 


COMMAND ENTRY ROUTINE 
DISABLE INTERRUPTS 


SAVE REGISTERS 
CHECK THAT NO COMMAND ALREADY IN PRO 
UNACCEPTABLE ; 


GET COMMAND 

SAVE COMMAND 

IS IT A. CLEAN UP/RESTART 
YES 

NO. SET A AS A POINTER TO OP TABLE 
TRY TO MATCH COMMAND NAME 
OK 

NO. TRY NEXT ENTRY 

HAVE WE GONE TOO FAR? 
YES. GIVE UP TRYING 

NO. TRY AGAIN 


BUMP A TO SUBROUTINE ERROR 


GET ADDRESS INTO B 
SET COMMAND IN PROGRESS FLAGS 


ENABLE INTERRUPTS 
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085% 
0855 
0856 
0857 
0858 
0859 
0860 
0861 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
0880 
0881 
0882 
0883 
0884 
0885 
0886 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
0894 
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C1224 
01225 
01226 
Ci22? 
01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
C1241 
C1242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
01252 


01253 
01254 
01255 
01256 
01257 
01260 
01261 
01262 
01263 
0126% 
01265 
C1266 
01267 
01270 
01271 
C1272 
01273 


060257 
010260 
070257 
060744 
064745 
124747 
064241 
025245 
102027 
025234 
064242 
025245 
064243 
025245 
064244 
025245 
064245 
103100 
060247 
070750 
114135 
060001 
114135 


060257 
010260 
070257 
102100 
102313 
025257 
107513 
054737 
024766 
025257 
103100 
060117 
070114 
060747 
071165 
102100 
025175 


RETRN 


UNXCC 
BDDAT 
BDCOM 
UNERR 
BDCOP 


NTENU 
BADD 


GRACE 


SANDY 


BADD1 


LDA 
AND 
STA 
LDA 
LDB 
JMP 
LDB 
JMP 
HLT 
JMP 
LDB 
JMP 
LDB 
JMP 
LDB 
JMP 
LDB 
CLF 
LDA 
STA 
JSB 
LDA 
JSB 


LDA 
AND 
STA 
STF 
SFS 
JMP 
LIB 
CPB 
JMP 
JMP 
CLF 
LDA 
STA 
LDA 
STA 
STF 
JMP 
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FLAGS 
CPROC 
FLAGS 
TC3 

TC4 
CMDSV,I 
UNXCF 
BADD 
278 
BDDAT 
BDCMF 
BADD 
UNERF 
BADD 
BDCPF 
BADD 
NTNUF 

0 

COMER 
ASAVE 
SNDM1,1 
B 
SNDM1i,I 


GET COMMAND MASK 
READY TO OBTAIN NEW COMMAND 


UNIT EXCEPTION 

TRAP THE ERROR. 

BAD COMMUNICATIONS 

UNIT ERROR 

BAD TAPE CONTROL OPERATOR 

NOT ENOUGH 

DISABLE INTERRUPT SYSTEM 
COMMUNICATION ERROR 

SAVE HP RESPONSE TO M1 COMMANDS 


ERROR TYPE 


CLEAR COMMAND IN PROGRESS FLAG 


ENABLE INTERRUPTS 


DISABLE INTERRUPTS 


PAGE 


0896 
0897 
0898 
0899 
090C 
0901 
0902 
0903 
0904 
0905 
0906 
0907 
0908 
0909 
0910 
0911 
0912 
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01274 
01275 
01276 
01277 
01300 
C1301 
01302 
01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 


000000 
000000 
000000 
000000 
000000 
000000 
000120 
000003 
000006 
100000 
O77777 
000006 
177772 
001526 
001371 


ate ate ate 
+ oe Poe 


PART 3 


OCT 
BSS 
BSS 
BSS 
BSS 
BSS 
OcT 
OCT 
OcT 
OcT 
OCT 
DEC 
DEC 
DEF 
DEF 
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LOCAL VARIABLES 


) FOR SAVING READ OR WRITE COMMAND 
1 END OF FILE FLAG 

1 INCORRECT LENGTH FLAG 

1 BUFFER FOR PUT ROUTINE 

1 READ OR WRITE TAPE FLAG 
1 

120 

3 

6 

100000 DMA INPUT FLAG 

T7777 OUTPUT FLAG SET 

6 

=6 

BYPAS 

BRET 
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0914 
0915 
0916 
0917 
0918 
0919 
0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0935 
0936 
0937 
0938 
0939 
0940 
0941 
0942 
0943 
0944 
0945 
0946 
0947 
0948 
0949 
0950 
0951 
0952 
0953 
0954 
0955 
0956 
0957 
0958 
09595 
0960 
0961 
0962 
0963 


01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 


01326 


01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 


01344 
01345 


01346 


01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
C1364 
01365 
01366 
01367 
01370 


000000 
071274 
064273 
005100 
002404 
010273 
070316 
044000 
074273 
025374 
064276 
106606 
064277 
106702 
106602 
064273 
007004 
102702 
106602 
114141 
061303 
114143 
114140 
011302 
002002 
025376 
071275 
114140 


010730 
002003 
025360 
060277 
002021 
025360 
060273 
006400 
025406 
114140 
011304 
002003 
025400 
034272 
025372 
061312 
070474 
024513 


FDMAI 


DMAEN 


BACK 
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THIS DOES DMA I10 FO 


GOOD RETURN 
ERROR RETURN 


NOP 
STA SAVC2 
LDB BYTCN 
BRS 

CLA,INA 

AND BYTCN 
STA ODD 
ADB A 

STB BYTCN 
JMP BRET+3 
LDB DMAC1 
OTB DMAD 
LDB DMAC2 
CLC WCAD 
OTB WCAD 
LDB BYTCN 
CMB,INB 

STC WCAD 
OTB WCAD 
JSB OUTC,I 
LDA B3 

JSB EXIT,I 
JSB TPSTT,1I 
AND B120 
SZA 

JMP EOFL 
STA EOFLG 
JSB TPSTT,I 
AND K4 
SZA,RSS 

IMP BACK 
LDA DMAC2 
SSA,RSS 

IMP BACK 
LDA BYTCN 
CLB 

JMP UGH 
JSB TPSTT,I 
AND B6 
SZA,RSS 

JMP CLNUP 
1S2Z RETRY 
IMP +5 
LDA ABRET 
STA FREDY 
JMP NONO 


* FP DP M A IT ck % ce ok ose ok ose ook ook 
R READ AND WRITE AND HDRSRCH 


FIRST DMA WORD 
ASSIGNS 10 CHANNEL 


SECOND DMA WORD 

BUFFER ADDRESS 

THIRD DMA WORD 

BUFFER LENGTH 

SET UP FOR RETURN VIA INTERRUPT 
GET TAPE STATUS (E.G. EOF) 

EOF OR EOT? 

YES 

NO EOFLG=0 


CHECK FOR P.E«y TIMING ERROR 
ACTUAL LONGER THAN REQUESTED? 


IT'S OK. 


NO 
YES, RETRY AT LEAST 10 TIMES 


‘NO WAY' 
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0965 01371 025412 BRET JMP CONVB ERROR RETURN 

0966 01372 060227 LDA BSRDC BACKSPACE OVER BAD RECORD 
0967 01373 114142 JSB OUTF,I 

0968 C1374 061274 LDA SAVC2 

0969S 01375 025325 JMP DMAEN 

0970 01376 002404 = EOFL CLA,INA WAS EOF,EOT SO SET EOFLG=1 
0971 01377 071275 STA EOFLG 

0972 01400 102702 CLNUP stc WCAD 

0973 01401 102502 LIA WCAD 

0974 01402 006400 CLB 

0975 01403 040273 ADA BYTCN GET ACTUAL 

0976 C1404 050273 CPA BYTCN SAME AS REQUESTED? 

0977 01405 025407 JMP + 2 YES 

0978 01406 006004 UGH INB NO 

0979 01407 075276 STB ILFLG ILFLG=0, CORRECT LENGTH 
0980 01410 070273 STA BYTCN ILFLG=1, INCORRECT LENGTH 
0981 01411 035313 . Isz FDMAI 

0982 01412 064273 CONVB LDB BYTCN 

0983 01413 005000 BLS 

0984 01414 060316 LDA ODD 

0985 01415 000010 SLA 

0986 01416 044354 ADB KM1 

0987 01417 074273 STB BYTCN 

0988 01420 125313 JMP FDOMAI,I 

0989 * 

0990 wee ou os oka oak oak ke OSH PIT UTILITIES 

0991 * 

0992 01421 000000 GET NOP 6) 

0993 01422 114137 JSB RCM1,I1 

0994 01423 010312 AND B77 

0995 01424 125421 JMP GET,I 

0996 01425 000000 PUT NOP 6) WSHP IN SHIPIT 

0997 01426 100106 RRL 6 

0998 01427 071277 STA SHPSV 

0999 01430 010312 AND B77 

1000 01431 114135 JSB SNDM1,1 

1001 01432 061277 LDA SHPSV 


1002 01433 125425 JMP PUT,I 
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1004 Biche liste cigtec wootshiesgige Uetee ustes. “ite™: <iste X R E A D 

1005 - READ FROM TAPE ROUTINE 

1006 C1434 000000 XREAD NOP 9) 

1007 01435 114147 JSB RDTU,I GET UNIT #, INITIALIZE IF NECESSARY 
1008 01436 060274 LDA ABYTC GET WORD COUNT 
1009 01437 070262 STA PNTRX 

1010 014460 114133 ISB RDTW,I 

1011 Xs NOW READ TAPE BUT FIRST CHECK IF READ 

1012 01441 114136 JSB REDY,1 

1013 01442 025457 JMP PASS ERROR RETURN 
1014 ss AT THIS POINT THE DEVICE IS READY 

1015 01443 060277 LDA DMAC2 SET UP FOR INPUT 
19016 01444 031305 IOR DMAIN INPUT FLAG SET 
1017 01445 070277 STA DMAC2 

1018 01446 060233 LDA RCCDC 

1019 01447 114146 JSB DMAIO,I 

1020 01450 025457 JMP PASS ERROR RETURN 
1021 as SEND BACK TO M1 

1022 01451 060110 HDREP LDA TPBUF 

1023 01452 070275 STA PBUFF TAPE BUFFER 

1024 01453 002400 CLA 

1025 01454 071300 STA RDWRT A=O READ TAPE=> HP => M1 
1026 01455 170265 STA PSNDA,I CLEAR OUT BUFFER 
1027 01456 015535 JSB SHPIT 

1028 01457 060254 PASS LDA ROK | 

1029 01460 070750 STA ASAVE SAVE HP RESPONSE TO M1 COMMANDS 
1030 01461 114135 JSB SNDM1,1 

1031 01462 061303 LDA B3 

1032 01463 070266 STA NUMDA 

1033 01464 064273 LDB BYTCN 

1034 01465 074264 . STB SEND SEND BACK BYTE COUNT 
1035 01466 114134 JSB SNDDA,I 

1036 = NOW SEND BACK FLAGS 

1037 01467 002400 CLA 

1038 01470 006404 CLB,INB 

1039 01471 055275 CPB EOFLG SET? 

1040 01472 030241 IOR UNXCF YES 

1041 01473 055276 HFLEP CPB ILFLG SET? 

1042 01474 030246 IOR ILF YES 

1043 01475 070264 STA SEND 

1044 01476 002404 CLA,INA 

1045 01477 070266 STA NUMDA 

1046 01500 114134 JSB SNDDA,I 


1047 01501 125434 JMP XREAD,I 
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104 9 sts oats oste ooats oats ots ote otis OME OME OES x X WwW R I T Se SR. aie sie ee SSSR Sige Se oe 
1050 * THIS IS THE WRITE TO TAPE ROUTINE 

1051 01502 000000 XWRIT NOP 0) 
1052 01503 114147 JSB RDTU,I GET UNIT # INITIALIZE IF NECESSARY 
1053 01504 060274 LDA ABYTC 

1054 01505 070262 STA PNTRX 

1055 01506 114133 JSB RDTW,1I GET WORD COUNT 

1056 01507 060110 LDA TPBUF 

1057 01510 070275 STA PBUFF TAPEBUFF ADDR 

1058 01511 002404 CLA,INA A=1 WRITE Mi=> HP => TAPE 
1059 01512 071300 STA RDWRT 

1060 01513 015535 JSB SHPIT 

1061 * NOW DO DMA IO BUT FIRST 

1062 * MAKE SURE TAPE UNIT IS READY 

1063 01514 114136 JSB REDY,1I 

1064 01515 025526 JMP BYPAS ERROR RETURN 

1065 * NOW ITS READY 

1066 01516 060277 LDA DMAC2 

1067 01517 011306 AND DMAOT SET UP FOR OUTPUT TO DMA 
1068 01520 070277 STA DMAC2 OUTPUT FLAG NOW SET 

1069 01521 065311 LDB APASS B HAS ERROR RETURN FOR WRING 
1070 01522 114144 JSB WRING,I CHECK FOR WRITE RING 

1071 01523 060234 LDA WCCDC 

1072 01524 114146 JSB DMAIO,;!I 

1073 01525 000000 NOP 6) ERROR RETURN 

1074 01526 060255 BYPAS LDA WOK SEND WRITE OK 

1075 01527 065275 © LDB EOFLG 

1076 01530 006002 SZB WOKUE? 

1077 01531 060252 LDA WOKUE YES 

1078 01532 070750 STA ASAVE SAVE HP RESPONSE TO M1 COMMANDS 
1079 C1533 114135 JSB SNDM1,1 

1080 01534 125502 JMP XWRIT,I 

1082 sete os oss oe oe ose oak oak oak oats oak S H P I QP & %& % MM Me ke Me se oe Me ok ose oe 
1083 * THIS IS THE MAIN TRANSFER ROUTINE BETWEEN 

1084 *% THE HP AND THE Mi 

1085 * BYTE COUNT IN BYTCN 

1086 a READ=O, WRITE=1 IN RDWRT 

1087 ** PBUFF POINTER TO BUFFER 

1088 * "X' SGINIFIES A BIT TO CARE ABOUT 

1089 * 'N' SIGNIFIES BIT NOT TO WORRY ABOUT 

1090 01535 000000 SHPIT NOP 6) 

1091 01536 060273 LDA BYTCN 

1092 01537 071301 STA SVKNT 

1093 01540 002400 CLA A,B=0 

1094 01541 006400 CLB 

1095 01542 051300 CPA RDWRT 


1096 01543 025623 JMP WSHP HP => Ml 
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1098 
1099 
i roo 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
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01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01567 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 
01600 
01601 
01602 
01603 
01604 
01605 
01606 
01607 
01610 
01611 
01612 
01613 
01614 
01615 
01616 
01617 
01620 
01621 
01622 


015421 
001727 
001222 
170275 
015421 
001700 
130275 
170275 
015421 
101102 
130275 
170275 
034275 
174275 
015421 
001727 
130275 
170275 
015421 
001222 
130275 
170275 
015421 
006400 
101104 
130275 
170275 
034275 
174275 
015421 
001700 
001222 
130275 
170275 
015421 
130275 
170275 
034275 
061301 
041310 
002020 
125535 
002003 
125535 
071301 
006400 
025544 


RDSHP 


THE FOLLOWING IS Ml 


(7 SEPT 76) 


JSB GET 

ALF,ALF 

RALyRAL 

STA PBUFF,I 

JSB GET 
ALF 

IOR PBUFF,I 

STA PBUFF,1I 

JSB GET 

RRR 2 

IOR PBUFF,I 

STA PBUFF,I 

ISZ PBUFF 

STB PBUFF, I 

JSB GET 

ALF,ALF 

TOR PBUFF,I 

STA PBUFF,I 

JSB GET 

RAL,RAL 

IOR PBUFF,I 

STA PBUFF,I 

JSB GET 

CLB 

RRR 4 

IOR PBUFF,I 

STA PBUFF,1I 

ISZ PBUFF 

STB PBUFF,I 

JSB GET 

ALF 

RAL,RAL 

IOR PBUFF,I 

STA PBUFF,I 

JSB GET 

IOR PBUFF,I 

STA PBUFF,I 

Isz PBUFF 

LDA SVKNT 

ADA KM6 

SSA 

JMP SHPIT,I 

SZA,RSS 

JMP SHPIT,I 

STA SVKNT 

CLB 

JMP RDOSHP 


=> HP 


1 /SXXXXXXNNNNNNNNNN/ 


2 /NNNNNNXXXXXXNNNN/ 


ROTATE B,yA RIGHT 2 PLACES 
3 /NNNNNNNNNNNNXXXX/ 


3 /XXNNNNNNNNNNNNNN/ 
4 /NNXXXXXXNNNNNNNN/ 
5 /NNNNNNNNXXXXXXNN/ 


6 /NNNNNNNNNNNNNNXX/ 


6 /XXXXNNNNNNNNNNNN/ 


7 SNNNNXXXXXXNNNNNN/ 
7 /NNNNXXXXXXNNNNNN/ 
8 /NNNNNNNNNNXXXXXX/ 


SIX 8-BIT BYTES LESS TO GO 


PAU IF ZERO 
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114 7 Ser Seo RSS ASE Stee ise? stem Cistee cotew isces: see, Tse is “x OW S H P Sig. iste: iste. “ste: ste. glee scsi, ©” oalgs ciples Oats 
1148 ** MUST BE MORE CAREFUL WITH BYTE COUNT FOR WRITE 
1149 * DON'T OVERRUN 

1150 01623 060273 WSHP LDA BYTCN 

1151 01624 002003 STA,RSS BYTCNT ZERO? 

1152 01625 125535 JMP SHPIT,I RETURN IF ZERO. 

1153 * GO TO APPROPRIATE PLACE 

1154 01626 041310 WRON ADA KM6 IF NEG, SEND LAST BYTES 
1155 01627 071301 STA SVKNT 

1156 01630 002020 SSA 

1157 01631 025656 JMP LFOVR 

1158 01632 164275 LDB PBUFF,1 ; 

1159 01633 034275 TSZ PBUFF GET FIRST TWO WORDS 
1160 01634 160275 LDA PBUFF,I 

1161 01635 015425 JSB PUT 

1162 01636 015425 JSB PUT 

1163 01637 015425 JSB PUT 

1164 01640 015425 JSB PUT 

1165 01641 015425 JSB PUT 

1166 30 BITS NOW SENT 

1167 01642 005222 RBL+RBL TWO BITS INTO LOW-ORDER OF B 
1168 01643 034275 ISZ PBUFF 

1169 01644 160275 LDA PBUFF,I 

1170 01645 100116 RRL 14 OK, LETS GO 

1171 01646 015425 JSB PUT 

1172 01647 015425 JSB PUT 48 BITS SENT 

1173 01650 015425 JSB PUT 

1174 01651 061301 LDA SVKNT 

1175 01652 002003 SZA,RSS 

1176 01653 125535 JMP SHPIT,I PAU 

1177 01654 034275 ISZ PBUFF 

1178 01655 025626 JMP WRON GO DO MORE 


PAGE 


1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 


1203 
1204 
1205 
1206 
1207 


1208 
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01656 
01657 
01660 
01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 


01704 
01705 
01706 


01707 


041307 


(003004 


071301 
164275 
034275 
160275 
015425 
015425 
035301 
015704 
125535 
035301 
015704 
125535 
035301 
025677 
125535 
005727 
034275 
160275 
100110 
025664 


000000 
015425 
035704 


125704 


LFOVR 


OVR2 


LSTLG 


ADA 
CMA 
STA 
LDB 
ISZ 
LDA 
JSB 
JSB 
ISzZ 
JSB 
JMP 
IS2 
JSB 


JMP - 


ISZ 
JMP 
JMP 
BLF 
IS2 
LDA 
RRL 
JMP 


K6 
rINA 
SVKNT 
PBUFF,I 
PBUFF 
PBUFF,I 
PUT 
PUT 
SVKNT 
LSTLG 
SHPIT,I 
SVKNT 
LSTLG 
SHPIT,1 
SVKNT 
+2 
SHPIT,I 
» BLF 

PBUFF 

PBUFF,I 

8 

OVR2 


PUT 
LSTLG 


LSTLG,I 


GET NEGATIVE OF BYTES LEFT (<6) 


LOAD UP REGISTERS. 


1 OR 4 BYTES FINISHED 


3 BYTES FINISHED 
ALIGN B 


1 => 2 PUTS 
2 => 3 PUTS 
3 => 4, 4 => 65 5 => TF PUTS 


'o L S T L G ete ate ate ale ate ate ote ate ate id ef 
oe 4 Pd red ae Pr Pad ae a4 o- a . 


PAGE 


1210 


1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
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C2000 


02000 
02001 
02002 
02003 
02004 
02005 
02006 
02007 
02010 
C2011 
02012 
02013 
02014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 
02024 
02025 
02026 
02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 


000000 


000000 
062000 
170122 
114147 
060274 
070262 
114133 
062116 
070262 
114132 
060273 
072124 
062117 
070273 
060111 
070275 
002404 
071300 
015535 
062124 
006400 
000010 
006004 
040001 
076123 


070273 > 


114136 
026101 
060277 
031305 
070277 


XHDRS 


ORG 


NOP 
LDA 
STA 
JSB 
LDA 
STA 
JSB 
LDA 
STA 
JSB 
LDA 
STA 
LDA 
STA 
LDA 
STA 
CLA 
STA 
JSB 
LDA 
CLB 
SLA 
INB 
ADA 
STB 
STA 
JSB 
JMP 
LDA 
IOR 
STA 


2000B 


ate ste 
Pe a 4 


XHDRS 
READC,1I 
RDTU,;1I 
ABYTC 
PNTRX 
RDTW,1I 
ACMSV 
PNTRX 
RDSX,I 
BYTCN 
SAV1 
CMPSV 
BYTCN 
PRBUF 

PBUFF 

» INA 
RDWRT 
SHPIT 
SAV1 


(7 SEPT 76) 


FORCE NEW PAGE NOW 


X HDR S 


EXIT VIA 
READ ROUTINE 
TAPE UNIT NO. 


GET WORD COUNT 
COMPARE COUNT 


SAVE BYTE COUNT 


GET COMPARE 
FIELD FROM Ml 


RESTORE BYTE COUNT. 
ODD NUMBER OF BYTES? 
NO B=0 

YES B=1 


IF ODD, ODDC=1 
BYTCN ALWAYS EVEN. 
TAPE UNIT READY. 


SET-UP DMA. 
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1246 02037 060233 HDRLP LDA RCCDC 

1247 02040 114146 JSB DMAIO,!I 

1248 02041 026101 JMP FAILS 

1249 02042 006404 CLB,INB 

1250 02043 055275 CPB EOFLG EOF? 

1251 02044 026101 JMP FAILS YES 

1252 02045 062117 LDA CMPSV NO 

1253 02046 003004 CMA,INA NEGATE COMPARE COUNT 
1254 02047 072120 STA COMPR WORKING VERSION OF COMPARE COUNT 
1255 02050 060110 LDA TPBUF 

1256 02051 072121 STA TPPNT : TAPE BUFFER POINT 
1257 02052 060111 LDA PRBUF 

1258 02053 072122 STA PRPNT PRINT BUFFER POINTER 
1259 02054 162121 =CMPLP LDA TPPNT,1I 

1260 02055 064354 LDB KM1 ODD NUMBER OF BYTES. 
1261 02056 056120 CPB COMPR KLUDGE SO DON'T COMPARE. 
1262 02057 010741 AND HIHAF WHOLE WORD. 

1263 02060 152122 CPA PRPNT,1 COMPARE WORDS. 

1264 02061 026063 JMP *+2 

1265 02062 026037 JMP HDRLP NO MATCH 

1266 02063 036121 SZ TPPNT MATCH, BUMP POINTERS. 
1267 02064 036122 ISZ PRPNT 

1268 02065 036120 ISZ COMPR FINIS? 

1269 02066 026070 JMP K+ 2 NO - CHECK 2ND BYTE. 
1270 02067 026072 JMP HDOUT . FINISHED? 

1271 02070 036120 182 COMPR FINIS? 

1272 02071 026054 JMP CMPLP NO, GET MORE. 

1273 02072 062123 HDOUT LDA ODDC WHETHER TO SUBTRACT 
1274 02073 002011 SLA,RSS 

1275 02074 025451 JMP HDREP ONE BYTE 

1276 02075 003004 CMA,INA OR NOT 

1277 02076 040273 ADA BYTCN IF ODDC SET TO 1. 
1278 02077 070273 STA BYTCN SUBTRACT ELSE. 


1279S 02100 025451 JMP HDREP DON'T 


PAGE 


1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
129% 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
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02101 
02102 
02103 
02104 
02105 
02106 
02107 
02110 
02111 
02112 
02113 
02114 
02115 


02116 
02117 
02120 
02121 
02122 
02123 
02124 


060254 
070750 
114135 
061303 
070266 
006400 
074264 
114134 
002400 
030244 
030243 
006404 
025473 


002117 
000000 
000000 
000000 
000000 
000000 
000000 


FAILS 


ACMSV 
CMPSV 
COMPR 
TPPNT 
PRPNT 
ODDC 

SAV1 


LDA 
STA 
JSB 
LDA 
STA 
CLB 
STB 
JSB 
CLA 
IOR 
IOR 
CLB 
JMP 


DEF 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 


ROK 
ASAVE 
SNDM1,1 
B3 
NUMDA 


SEND 
SNDDA,I 


BDCPF 

UNERF 
» INB 

HFLEP 


CMPSV 


(re ee on Se ee ee 


SAVE HP RESPONSE TO Mi COMMANDS 


PAGE 


1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 


1331 
1332 
1333 


1334 


1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
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02125 
02126 
02127 
C2130 
02131 
02132 
02133 
02134 
02135 
02136 
02137 
02140 
02141 
02142 
02143 
02144 
02145 
02146 
°02147 


02150 
02151 


02152 


02153 
02154 
02155 


02156 
02157 
02160 
02161 
02162 
02163 
02164 
02165 
02166 


000000 
103100 
060257 
010260 
070257 
062154 
070114 
103112 
062155 
070013 
102100 
014360 
103100 
103513 
052152 
026150 
052153 
026150 
026137 


000000 
024766 


000276 
000277 
002141 
124114 


000000 
060271 
070262 
114132 
114132 
060255 
070750 
114135 
126156 


ate lote 


*XRST - 


ate ats 
ae ae 


(7 SEPT 76) 


Oy sd 
pnd red 


RESTART INTERRUPTED EN 


XRST NOP 
CLF oO 
LDA FLAGS 
AND CPROC 
STA FLAGS 
LDA CONTA 
STA  CMDIN 
CLF RSTRT 
LDA  NEWC 
STA M110 
WTRS STF 00 
JSB  LOOP-1 
CONT CLF 00 
LIA  M1I0,C 
CPA  DRSTR 
JMP  FAILP 
CPA  TRSTR 
IMP FAILP 
JMP WTRS 
FAILP NOP 
JMP INIT 
DRSTR ocT 276 
TRSTR ocT 277 
CONTA DEF CONT 
NEWC JMP CMDIN,I 
“XSETM - SET MODES. 
XSETM NOP 
LDA  ATUNT 
STA PNTRX 
JSB  RDSX,1I 
JSB  RDSX,1 
LDA WOK 
STA  ASAVE 
JSB  SNDM1,1 
JMP XSETM,I 


X RS T 
TRY POINT. 


RESTART INTERRUPTED ENTRY POINT. 
TURN OFF INTERRUPTS 


KILL COMMAND IN PROGRESS. 


NEW COMMAND INTERRUPT E.P. 


TURN OFF RESTART FLAG. 


INTERCEPT COMMANDS 


INTERRUPT COMMAND EP 
GET 


ate F A I L P ed vie we ete ele ate Sd ate ate ate a ed ate te 
Pe 4 Pad os *° a5 oo" Pi 4 re Pid a oe a= pes ae = 


Pa xX S E T M vfs we rd ate ete ate telat whe 
a 2 Pd oe as Pe oe a4 Px Pa 


GET UNIT # 

GET MODE BITS. 

BOT - IGNORE 

SAVE HP RESPONSE TO M1 COMMANDS 
FINISHED 
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1348 a 
1349 02167 000000 PGET NOP 0 USED BY IOMEC AND HYTYPE ROUTINES 
1350 02170 060274 LDA ABYTC GET THE NUMBER OF BYTES 

1351 02171 070262 STA PNTRX TO BE PRINTED IN THIS BLOCK 
1352 02172 114133 JSB RDTW,1 

1353 02173 060110 LDA TPBUF USE TAPE BUFFER NOW, 

1354 02174 070275 STA PBUFF LATER USE PRINTER BUFFER 

1355 02175 070305 STA XPBUF 

1356 02176 002404 CLA,INA PRINTING IS LIKE A WRITE 

1357 02177 071300 STA RDWRT M1=>HP=>PRINTER 

1358 02200 015535 JSB SHPIT 

1359 02201 060255 LDA WOK 

1360 02202 070750 STA ASAVE SAVE HP RESPONSE TO M1 COMMANDS 
1361 02203 114135 JSB SNDM1,1 

1362 02204 126167 JMP PGET,I 

1363 ** 

1364 MOE Sees oo ok ok CX OP CURROUN OTT 

1365 - 

1366 02205 000000 XPRNT NOP 6) 

1367 O2206 016167 JSB PGET 

1368 ¥ 

1369 = NOW THE DATA IS IN THE BUFFER. UNPACK IT AND SEND IT TO PRINTER 
1370 * 

1371 02207 060273 LDA BYTCN 

1372 02210 003000 CMA 

1373 O2211 070303 STA PRTLM PRINTER BYTE LIMIT, WHEN PBI REACHES 
1374 ns 

1375 O2212 060273 LDA BYTCN THIS, WE ARE FINISHED 

1376 * 

1377 02213 006400 CLB 

1378 02214 074304 STB PBI PRINTER BYTE INDEX(PBI) IS ZERO 
1379 * 

1380 * STORE A NULL SLEW IN THE BYTE AFTER THE LAST LINE 

1381 ** 

1382 02215 064306 LDB NSLEW NULL SLEW 

1383 02216 000010 SLA IS BYTCN ODD? 

1384 02217 026221 JMP +2 

1385 02220 005727 BLF,BLF SLEW GOES ON EVEN BOUNDARY 

1386 Q2221 001100 ARS MAKE BYTE INTO WORD INDEX 

1387 02222 040305 ADA XPBUF 

1388 02223 070307 STA WPTR 

1389 02224 160000 LDA A,I GET CONTENTS 

1390 02225 006020 SSB 

1391 02226 026231 JMP +3 

1392 02227 010741 AND HIHAF ODD BOUNDARY 

1393 02230 026232 JMP +2 

1394 02231 002400 CLA EVEN BOUNDARY 

1395 O2232 030001 IOR B GET NSLEW IN 


1396 02233 170307 STA WPTR,I AND GET IT INTO MEMORY 
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1398 x NOW SEND FIRST SLEW 


1399 FIRST CHECK STATUS 

1400 x 

1401 02234 102514 LIA  PRICC PRINTER 1 COMMAND CHANNEL 

1402 02235 000010 SLA 

1403 02236 026244 IMP #46 

1404 02237 060352 PNA LDA K2 PRINTER NOT AVAILABLE 

1405 02240 070266 STA  NUMDA 

1406 02241 060352 LDA = K2 PRINTER DEVICE NUMBER IS NOW #2 
1407 02242 070264 STA SEND BY DECREE OF LEE 

1408 02243 114150 JSB  XDVER,1 | | 

1409 02244 160305 FSLEW LDA XPBUF,I PRINTER IS READY, SEND FIRST SLEW 
1410 02245 010741 AND  HIHAF 

1411 02246 103100 CLF 0 

1412 02247 102614 OTA  PRICC 

1413 02250 103714 STC PRICC,C 

1414 02251 102314 SFS PRICC WAIT FOR RESPONSE 

1415 02252 026251 IMP 9-1 

1416 02253 106714 CLC PRICC 

1417 02254 102100 STF 0 

1418 02255 102514 LIA  PR1CC 

1419 02256 002020 SSA : 

1420 02257 026237 JMP PNA SHOULD MODIFY THIS TO TRY TEN TIMES 
1421 02260 034304 ISZ PBI | PARITY ERROR NOW GIVES PTR NOT AVAIL 
1422 02261 060304 LLOOP LDA =~PBI CHECK IF BYTE COUNT BEGINS ON 
1423 2 EVEN/ODD BOUNDARY 

1424 02262 006400 CLB 

1425 02263 074311 STB  NULLF 

1426 02264 000010 SLA 

1427 02265 026274 IMP 9-47 | 

1428 02266 001100 ARS | _ EVEN, SIMPLE 

1429 02267 040305 ADA XPBUF 

1430 02270 164000 LDB = AgI 

1431 02271 070307 STA  WPTR 

1432 02272 034307 ISZ  WPTR 

1433 02273 026310 JMP SAME 

1434 02274 001100 ARS ODD, MUST PACK TWO HALVES 

1435 02275 040305 ADA  XPBUF 

1436 02276 070307 STA .WPTR POINTS TO FIRST 

1437 02277 160307 LDA WPTR,I 

1438 02300 034307 ISZ  WPTR 

1439 02301 164307 LDB WPTR,I | POINTS TO SECOND 

1440 02302 101110 RRR 8 TEXT COUNT IS ALL IN B 

1441 02303 010741 AND HIHAF TAKE CARE OF DATA BYTE FOLLOWING 
1442 mt TEXT COUNT 7 

1443 02304 001727 ALF,ALF GET FIRST PART OF REMAINDER 
1444 02305 030310 IOR NULLE GET INTO LOW ORDER 

1445 02306 034311 ISZ  NULLF FLAG FOR NULL CHARACTER 


1446 02307 170307 STA WPTR,I PUT IN NULL C 
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1448 02310 060304 SAME LDA PBI 

1449 02311 040001 ADA B ADD TEST COUNT 

1450 02312 041303 ADA B3 ADD 2 BYTES FOR TEXT COUNT HEADER 
1451 a ONE FOR BYTE SLEW, 

1452 02313 070304 STA PBI PBI=BYTE INDEX OF NEXT TEXT COUNT 
1453 % HEADER 

1454 02314 076400 STB TEMP SAVE TEXT COUNT 

1455 02315 060307 LDA WPTR 

1456 02316 072401 STA OFSET SAVE FOR DMA 

1457 02317 006003 SZ2B,RSS DO WE ADD LF MARGIN BLANKS? 
1458 02320 026333 JMP PRNZ NO 

1459 02321 042376 ADA KM3 MOVE WPTR BACK 3 WORDS 

1460 02322 072401 STA OFSET AND POST IT FOR DMA 

1461 02323 066377 LDB BLNKS GET ASCII PACKED SPACES 
1462 02324 174000 STB A,!I OVERWRITE AT HEAD OF TEXT LINE 
1463 02325 002004 INA 

1464 02326 174000 STB A,I AGAIN 

1465 02327 002004 INA 

1466 02330 174000 STB A,I AGAIN 

1467 02331 066400 LDB TEMP RESTORE B 

1468 02332 045307 ADB K6 ADD 6 BYTES OF SPACES TO TEXT COUNT 
1469 = NOW SET UP FOR DMA 

1470 

1471 02333 044311 PRN2Z ADB NULLF ADD 1 FOR NULL CHARACTER 
1472 02334 006004 INB ADD 1 FOR SLEW 

1473 02335 004010 SLB ADD 1 IF COUNT IS NOW ODD 
1474 02336 006004 INB 

1475 02337 005100 BRS B HAS WORD COUNT 

1476 02340 074300 STB PWCNT PRINTER WORD COUNT 

1477 02341 007004 CMB,INB 

1478 02342 102703 STC WCADP THIRD DMA WORD 

1479 02343 106603 OTB WCADP BUFFER LENGTH 

1480 02344 106703 CLC WCADP 

1481 02345 066401 LDB OFSET 

1482 02346 106603 OTB WCADP BUFFER ADDRESS 

1483 02347 064301 LDB DMAP1 FIRST DMA WORD 

1484 02350 106607 OTB DMAD2 ASSIGN I/0 CHANNEL 

1485 02351 103100 CLF ) DISABLE INTERRUPTS 

1486 02352 103707 STC DMAD2,C SEND IT 

1487 02353 103714 STC PR1CC,C 

1488 02354 102100 STF ) ENABLE INTERRUPTS 

1489 02355 014360 JSB LOOP-1 NOW WAIT FOR FINISH 


1490 02356 102033 HLT 33B SHOULDN'T COME HERE 


PAGE 


1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 


1519 
1520 
1521 
1522 
1523 
1524 
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02357 


02360 
02361 
02362 
02363 
02364 


02365 
02366 
02367 
02370 
02371 
02372 
02373 
02374 
02375 


C2376 
02377 
02400 
02401 


000000 


103100 
106714 
103514 
002020 
026237 


060304 
040303 
002020 
026261 
060253 
070750 
114135 
102100 
126205 


177775 
020040 
000000 
000000 


PRNXT 


NOP 


CLF 
CLC 
LIA 
SSA 
JMP 


LDA 
ADA 
SSA 
JMP 
LDA 
STA 
JSB 
STF 
JMP 
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ate tte 
ae “ 


PR1ICC 
PRICC,C 


PNA 


PBI 
PRT LM 


LLOOP 
PFIN 
ASAVE 
SNDM1,1 
0 
XPRNT,1I 


LOCAL STORAGE 


KM3 
BLNKS 
TEMP 
OFSET 


OCT 
OCT 
BSS 
BSS 


=3 
20040 
eo 

1 


he 
= 4 


COMES HERE WHEN FINISHED PRINTING 
LINE 


DISABLE STREAM OF PRINTER INTERRUPTS 
READ STATUS WORD 

SKIP IF NO PARITY TROUBLE 

PARITY ERROR, LATER TO BE FIXED FOR 
CLEANER 


HARDWARE RETRIES DONE OKy CHECK FOR 
END OF LINE, ELSE GO TO NEXT LINE. 
IF RUN IN PARALLEL WITH TAPE UNIT, 
THEN MUST CONTROL INTERRUPTS MORE 
CAREFULLY 


WHEN GOES POSITIVE, THROUGH 


SAVE HP RESPONSE TO M1 COMMANDS 
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1526 * 

1527 x PRINT OUT ON HYTYPE 

1528 a 

1529 02402 000000 XHTYP NOP 

1530 02403 102515 LIA HYTCC IS HYTYPE TURNED ON? 

1531 02404 053036 CPA HOFF 

1532 02405 002001 RSS NO, WOA 

1533 02406 026413 IMP P1 YES, CONTINUE 

1534 02407 102515 LIA HYTCC WAIT TIL SOMEBODY TURNS IT ON 
1535 02410 053036 CPA HOFF 

1536 02411 026407 JMP = 2 

1537 02412 114163 JSB XHZAP,1 PRIME IT, AND TRUCK ON 
1539 He 

1540 02413 016167 Pi JSB PGET GET PRINT BUFFER 

1541 02414 060305 LDA XPBUF ADDRESS OF BUFFER 

1542 C2415 001000 ALS MAKE INTO A BYTE ADDRESS 
1543 02416 073067 STA RP 

1544 02417 040273 ADA BYTCN PLUS NUMBER OF CHARACTERS 
1545 02420 073070 STA WP GIVES THE FIRST LOCATION OUT OF BUFF 
1546 02421 060155 LDA LABEL SET UP FRETURN 

1547 02422 070154 STA GFAIL 

1548 02423 006400 CLB INITIALIZE VARIABLES 

1549 02424 077063 STB HNFT 

1550 02425 077060 STB BLKCT 

1551 02426 077062 STB CTYPE 

1554 * MAIN LOOP TO PICK OFF THE NEXT CHARACTER FROM THE BUFFER 
1555 02427 114156 NCHR JSB XGNC,I 

1556 02430 073061 STA CCHAR 

1557 02431 053054 CHKLB CPA DROP CONTROL-D FOR DROPPING? 
1558 02432 026434 IMP k+ 2 

1559 02433 026442 JMP CHKRB 

1560 02434 063014 LDA VCMD VERTICAL COMMAND 

1561 02435 073062 STA CTYPE 

1562 02436 063021 LDA HLUP 

1563 02437 114162 JSB XSHYT, 1 ; MOVE HALF LINE UP 

1564 02440 037060 ~/\.' ” 1SZ 9 BLRCTUme NCE PUT IN A SPACE INSTEAD 
1565 02441 026427 — JMP NCHR AND GET THE NEXT CHARACTER 
1566 * 

1567 02442 053055 CHKRB CPA RAISE CONTROL-R FOR RAISING? 
1568 02443 026445 JMP + 2 

1569 02444 026453 JMP NCHR1 LOOK FOR OTHER THINGS 
1570 02445 063014 LDA VCMD VERTICAL COMMAND 

1571 02446 073062 STA CTYPE 

1572 02447 063020 LDA HLOWN YES, SKIP DOWN HALF A LINE 
1573 02450 114162 JSB XSHYT,I 

1574 02451 037060 Zu%%% ISz BLKCT jet wee! AND PRINT A SPACE INSTEAD 


1575 02452 026427 JMP NCHR 
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1578 * 

1579 02453 043024 NCHRI ADA CM41 WANT SOMETHING > 4OB 

158C 02454 002020 SSA 

1581 02455 026471 JMP CHKSC CHECK FOR SPECIAL CHARACTERS 
1582 02456 053034 CPA C77 IS IT AN UNDERSCORE? 

1583 02457 026530 JMP PRCUS WELL THEN, PROCESS IT 

1584 02460 043023 ADA CM100 AND = 140B 

1585 02461 002020 SSA 

1586 02462 026526 JMP APC FOUND A PRINTABLE CHAR 

1587 02463 043026 ADA CM37 OR WANT SOMETHING > 140B AND = 2008 
1588 02464 002020 SSA SKIP IF > 200B 

1589 02465 026526 JMP APC FOUND A PRINTABLE CHAR 

1590 02466 043023 ADA CmM100 IS IT = 300B? 

1591 02467 002020 SSA 

1592 02470 026544 JMP PTRCC FOUND A PRINTER CONTROL CHARACTER 
1593 * START LOOKING FOR SPECIAL CHARACTERS 

1594 02471 063061 CHKSC LDA CCHAR 

1595 02472 053052 CPA BLANK 

1596 02473 026475 JMP *+ 2 FOUND ONE 

1597 02474 026477 JMP CHKLF NO. TRY SOMETHING ELSE 

1598 02475 037060 ISzZ BLKCT INCREMENT BLANK COUNT 

1599 02476 026427 JMP NCHR AND GET ANOTHER CHARACTER 
1600 62477 053047 CHKLF CPA LF NEXT LINE? 

1601 02500 026502 JMP + 2 

1602 02501 026505 JMP CHKCR 

1603 02502 002404 CLA,INA 

1604 02503 114160 JSB XVERT,I ADVANCE ONE LINE 

1605 02504 026427 JMP NCHR 

1606 02505 053051 CHKCR CPA CR BACK TO THE BEGINNING? 

1607 02506 026510 JMP + 2 

1608 02507 026516 JMP CHKEJ 

1609 02510 063065 LDA LLEN THIS COMMAND DOESN'T AFFECT WHERE 
1610 02511 003004 CMA,INA WE ARE ON A PAGE 

1611 02512 114161 JSB XHOR,sI 

1612 02513 002400 CLA 

1613 02514 073060 STA BLKCT RESET COUNTER FOR MULTIPLE BLANKS 
1614 02515 026427 JMP NCHR 

1615 02516 053050 CHKEJ CPA EJECT TOP OF FORM? 

1616 02517 026521 JMP *+ 2 

1617 02520 026605 JMP GARBG NO, GARBAGE 

1618 02521 063064 | LDA LCNT DETERMINE THE AMOUNT TO SPACE DOWN 
1619 02522 003004 CMA,INA 

1620 02523 043035 ADA C102 TO THE NEXT PAGE 

1621 02524 114160 JSB XVERT,I 

1622 02525 026427 JMP NCHR 

1623 * 

162% * COMES HERE IF WE FOUND SOMETHING WE CAN PRINT 

1625 me 

1626 02526 114157 APC JSB XCHAR,1 PRINT THE CHAR 

1627 02527 026427 JMP NCHR GET NEXT CHAR. 

1628 * PROCESS CHARACTER UNDERSCORE 

1629 02530 063014 PRCUS LDA VCMD SET UP FOR VERTICAL COMMAND 


1630 02531 073062 STA CTYPE 
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02532 
02533 
02534 
02535 
02536 
02537 
02540 
C2541 
02542 
02543 


063020 
114162 
063057 
073061 
114157 
063014 
073062 
063021 
114162 
026427 


LDA 
JSB 
LDA 
STA 
JSB 
LDA 
STA 
LDA 
JSB 
JMP 
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HLOWN 
XSHYT,1 
DASH 
CCHAR 
XCHAR,I 
VCMD 
CTYPE 
HLUP 
XSHYT,I 
NCHR 


WHICH SKIPS DCWN HALF A LINE 


THEN PRINT A DASH 


AND THEN GIVE IT ANOTHER COMMAND TO 
SKIP UP HALF A LINE TO GET BACK TO 
THE CORRECT POSITION 


HOPE IT ISN'T ANOTHER ONE 


PAGE 44 - HP RESIDENT VERSION 2.8 (7 SEPT 76) 


1642 * COMES HERE IF IT FOUND A PRINTER CONTROL CHARACTER. 

1643 * 200B V' X - SKIP X LINES (X CAN BE UP TO 7) 

1644 * 210B V' X - SKIP TO CHANNEL X. 

1645 02544 013034 PTRCC AND C77 ONLY CONCERNED WITH BITS O-5 
1646 02545 073061 STA CCHAR 

1647 02546 114156 JSB XGNC,I 

1648 02547 114156 JSB XGNC,I MAY USE THIS TO PRINT BACKWARDS 
1649 02550 063065 LDA LLEN THIS IS WHERE WE ARE 

1650 02551 003004 CMA,INA 

1651 02552 114161 JSB XHOR,I MOVE BACK THAT FAR : 

1652 02553 002400 CLA 

1653 02554 073060 STA BLKCT RESET MB COUNT FOR NEXT LINE 
1654 02555 063061 LDA CCHAR 

1655 02556 002002 SZA 

1656 02557 026561 JMP SCCHR CHECK IF VALID SKIP CONTROL CHARACTE 
1657 02560 026427 JMP NCHR 

1658 * SKIP COMMAND CHARACTER 

1659 02561 043027 SCCHR ADA cM10 IS IT LESS THAN 10B 

1660 02562 002021 SSA,RSS SKIP IF .NEGATIVE 

1661 02563 026567 JMP CCCHR ELSE IT IS A SKIP TO CHAN COMMAND 
1662 02564 043032 ADA C10 RESTORE THE NUMBER 

1663 02565 114160 JSB XVERT,I SKIP THE APPROPRIATE NUMBER OF LINES 
1664 02566 026427 JMP NCHR 

1665 * CHANNEL COMMAND CHARACTER 

1666 * ONLY CHAN1 AND CHAN2 ARE RECOGNIZED 

1667 02567 002011 =CCCHR SLA,RSS SKIP IF ODD 

1668 02570 026576 JMP CHAN2 

1669 02571 063064 LDA LCNT 

1670 02572 003004 CMA,INA 

1671 02573 043035 ADA C102 

1672 02574 114160 JSB XVERT,1 SPACE DOWN TO NEXT PAGE 

1673 02575 026427 JMP NCHR 

1674 02576 063064 CHAN2 LDA LCNT WHAT LINE ARE WE ON? 

1675 02577 003004 CMA,INA 

1676 02600 043033 ADA C74 SKIP DOWN TO LINE 61 

1677 02601 002020 SSA ALREADY TOO FAR? 

1678 C2602 043035 ADA C102 YES, GO TO NEXT PAGE 

1679 02603 114160 JSB XVERT, 1 

1680 02604 026427 JMP NCHR 

1682 * 

1683 * SHOULD NEVER GET HERE--WE HAVE GARBAGE 

1684 02605 063053 GARBG LDA CENT 

1685 02606 073061 STA CCHAR 

1686 02607 114157 JSB XCHAR,I 


1687 02610 026427 JMP NCHR 


PAGE 45 - 
1689 

1690 

1691 

1692 

1693 

1694 

1695 02611 
1696 02612 
1697 C€2613 
1698 02614 
1699 02615 
1700 02616 
1701 02617 
1702 02620 
1703 02621 
1704 02622 
1705 02623 
1706 C2624 
1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 02625 
1717 02626 
1718 02627 
1719 02630 
1720 C2631 
1721 02632 
1722 02633 
1723 02634 
1724 02635 
1725 02636 
1726 02637 
1727 02640 
1728 02641 
1729 02642 
1730 02643 
1731 02644 
1732 02645 
1733 02646 
1734 02647 
1735 02650 
1736 02651 
1737 02652 
1738 02653 
1739 C2654 
1740 02655 
1741 02656 


1742 


02657 
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000000 
063060 
002004 
114161 
063012 
073062 
006400 
077060 
1000 33 
033061 
114162 
126611 


000000 
064000 
047065 
047043 
006021 
126625 
047044 
006020 
126625 
047040 
077065 
002120 
003204 
001000 
072400 
001000 
042400 
002040 
033046 
072400 
063013 
073062 
006400 
100033 
032400 
114162 
126625 


CHAR 


HORIZ 
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FUNCTION TO OUTPUT A CHAR TO THE HYTYPE 

THE CONTENTS OF THE REGISTERS ARE MEANINGLESS. 

THIS FUNCTION SPACES OVER BEFORE PRINTING THE CHAR AND THEN RESETS TH 
BLANK COUNT 


NOP 

LDA BLKCT 

INA 

JSB XHOR,I SPACE OVER 

LDA CCMD 

STA CTYPE CHAR STROBE 

CLB 

STB BLKCT RESET COUNTER 

ASL STROB - MOVE TO STOBE POSITION 
IOR CCHAR PUT IN CURRENT CHARACTER 
JSB XSHYT,I OUTPUT THE CHAR 

JMP CHAR,I 


FUNCTION TO GIVE THE HYTYPE A HORIZONTAL MOVEMENT COMMAND 

A CONTAINS THE 2'S COMPLEMENT OF THE NUMBER OF CHARACTER WIDTHS TO BE 
MOVED (NOT INCREMENTS OF 1/60" OR SIGNED MAGNITUDE). IF AN ATTEMPT IS 
MADE TO MOVE OUTSIDE THE INTERVAL [MINLP», MAXLP], THE COMMAND WILL BE 
IGNORED AND A CHARACTER WILL PROBABLY BE OVERPRINTED. EXTEND BIT E IS 
USED TO DETERMINE THE DIRECTION. 


NOP - 

LDB A COPY A TO B 

ADB LLEN 

ADB CMXLP ADD -MAXLP 

SSB,RSS SKIP IF MAXLP NOT EXCEEDED 
JMP HORI2Z,1 IGNORE COMMAND 

ADB COMP CHECK LEFT MARGIN (MAXLP-MINLP) 
SSB SKIP IF MINLP EXCEEDED 
JMP HORIZ,1 IGNORE COMMAND 

ADB MINLP COMPENSATE FOR CHECKING 
STB LLEN CMD OK, UPDATE COUNT 
CLE,SSA CLEAR E, CHECK SIGN OF A 
CMA,CME,INA COMPLEMENT Ey A 

ALS MULTIPLY BY 6 

STA TEMP 

ALS 

ADA TEMP 

SEZ CHECK ON THE DIRECTION 
IOR BIT10 FOR LEFT MOVES 

STA TEMP 

LDA HCMD 

STA CTYPE 

CLB 

ASL STROB MOVE TO STROBE POSITION 
IOR TEMP PUT IN INCREMENTS 

JSB XSHYT; 1 OUTPUT THE COMMAND 

JMP HORIZ,1 
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1744 x 
1745 = FUNCTION TO GIVE THE HYTYPE A VERTICAL COMMAND | 
1746 = A CONTAINS NUMBER OF LINES TO SPACE (NOT INCREMENTS OF 1/48") 
1747 ‘si | 

1748 02660 000000 VERT NOP 

1749 02661 064000 LDB OA COPY A TO B 

1750 02662 047064 ADB  LCNT 

1751 02663 047022 ADB CM102 SUBTRACT 102B 

1752 02664 006021 SSB,RSS AS LONG AS B IS POSITIVE 

1753 02665 026663 JMP 9-2 

1754 02666 047035 ADB C102 ADD 102B BACK (0 <= B <= 65) 
1755 02667 077064 STB LCNT UPDATE LINE COUNT 

1756 02670 006400 CLB 

1757 02671 002021 SSA,RSS IF NEGATIVE 

1758 C2672 026675 IMP +3 

1759 02673 003004 CMA,INA MAKE IT POSITIVE 

1760 02674 006004 INB AND SET THE FLAG 

1761 02675 001020 ALS,ALS 

1762 02676 001000 ALS MULT BY 8 TO CALCULATE VERT INCR. 
1763 02677 004010 SLB IF ARGUMENT WAS NEGATIVE 

1764 02700 033046 IOR  BIT10 MAKE IT MOVE THE PAPER DOWN 
1765 02701 072400 STA TEMP 

1766 02702 063014 LDA  VCMD VERT COMMAND 

1767 02703 073062 STA CTYPE 

1768 02704 100033 ASL STROB SET STOBE 

1769 02705 032400 IOR TEMP PUT BACK INCREMENTS 

1770 02706 114162 : JSB  XSHYT,I OUTPUT THE COMMAND 


1771 O2707 126660 JMP VERT,I 


PAGE 


1773 
1774 
1775 
1776 
1777 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789S 
1790 
1791 
1792 
1793 
1794 
1795 
1797 
1798 
179S 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
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02710 
02711 
02712 
02713 
02714 


02715 
02716 
C2717 
C2720 
02721 
02722 
C2723 
02724 


02725 
C2726 
C2727 
02730 
02731 
02732 
02733 
02734 
02735 


02736 
02737 


02740 
02741 
02742 
02743 
02744 
02745 


02746 
02747 
02750 
02751 
02752 
02753 
02754 
02755 
02756 
02757 
02760 


000000 
101100 
063062 
002004 
001323 


033066 
037063 
033015 
077066 
007400 
077063 
103615 
014360 


000000 
103515 
002020 
102015 
070001 
007000 
001727 
002021 
026740 
102515 
026733 


102515 
010001 
013031 
002002 
102115 
126710 


000000 
102515 
053036 
126746 
006400 
077064 
077065 
067015 
107615 
103715 
107615 


SHYTY(SEND TO HYTYPE) THIS IS THE ACTUAL FUNCTION WHICH OUTPUTS A 


COMMAND TO THE HYTYPE. 
RUPTS FOR THE NEXT INSTRUCTION. 


IT MUST TAKE CARE OF ENABLING THE INTER- 


THUS, EACH TIME IT IS CALLED, IT 


OUTPUTS THE DATA FROM THE PREVIOUS CALL. THIS IS INVISIBLE, SO 
WHEN THIS FUNCTION IS CALLED, 
THE NEXT TIME WITH THE CORRESPONDING STROBE SELECT BIT SET. 


SHYTY 


HYTYPE 
HINT 


Hl 


H2 


NOP 

RRR 16 
LDA CTYPE 
INA 

RAR,RAR 

IOR ODATA 
ISZ HNFT 
IOR RUP 
STB ODATA 
CCB 

STB HNFT 


OTA HYTCC,C 
JSB LOOP-1i 


INTERRUPT 
NOP 

LIA HYTCC,C 
SSA 

HLT HYTCC 
STA B 

CMB 

ALF,ALF 
SSA,RSS 

JMP H2 
LIA HYTCC 
JMP Hl 
LIA HYTCC 
AND B 

AND C7 
SZA 


STF HYTCC 
JMP SHYTY,1I 


CODE TO INITIALIZE THE HYTYPER 


HINIT 


NOP 

LIA HYTCC 
CPA HOFF 
JMP HINIT,I 
CLB 

STB LCNT 
STB LLEN 
LDB RUP 


OTB HYTCC,C 
STC HYTCC,C 
OTB HYTCC,C 


CONTAINS THE DATA TO BE OUTPUT 


EXCHANGE REGISTERS 

GET NEXT INSTRUCTION TYPE AND SET UP 
(BECAUSE INT-ENABLE=STROBE SEL.+1) 
THE INTERRUPT-ENABLE FOR IT 
(BY LEFT SHIFTING A 14 PLACES) 

ADD IN THE OLD DATA 

TEST FOR FIRST TIME THRU 

YES, OLD DATA IS JUNK, FORCE A NOP 

AND SAVE THE DATA FOR THE NEXT TIME 


A MINUS ONE TO YOUw) 
SEND OLD DATA TO BUFFER 
PUT US IN LITES 


GET STATUS WORD 


SAVE THE STATUS WORD 

IN COMPLEMENT FORM 

MOVE RUN/PAUSE BIT UP 
SHOULD WE WAIT? 

NO, OK TO PROCEED 

GET NEW STATUS WORD 
TEST SAME FOR PAUSE BIT 


STATUS WORD AGAIN 
WANT TO SEE IF ANY NEW BITS ON 


IN THE ‘READY BITS* AREA 


NO CHANGE, GO ON 


SOMETHING ELSE DONE - FORCE INTERRUPT 


CONTINUE WHERE WE HOPE WE LEFT OFF 


CHECK HYTYPE STATUS 
IS IT TURNED ON? 
NO, GIVE UP FOR NOW. 


RESET PAGE LINE COUNT TO ZERO 
RESET LINE POSITION 

RAISE THE RIBBON, REALLY A NOP 
TO GET THE INTERRUPTS TURNED OFF 
INITIALIZE (RESET) THE HYTYPE 
RAISE THE RIBBON FOR REAL 


e 


PAGE 


1830 
1831 
1832 
1833 
1834 
1835 
1836 
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02761 
02762 
02763 
02764 
02765 
02766 
02767 


107515 
005300 
006011 
026761 
067037 
107615 
126746 


(7 SEPT 76) 
LIB HYTCC,C 
RBR 
SLB,RSS 
JMP 3 
LDB MARGN 
OTB HYTCC,C 
JMP HINIT,I 


READY FOR HORIZONTAL? 


NOT YET. 
SKIP OVER THE HOLES 
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1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 


1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 


02770 
02771 
02772 
02773 
02774 
C2775 
02776 
02777 
03000 
03001 
03002 
03003 


03004 
03005 
03006 
03007 
03010 
03011 


FUNCTION GNCHR, GETS THE NEXT CHARACTER THE HYTYPE IS SUPPOSED TO 
PRINT. THE CONTENTS OF THE REGISTERS WHEN CALLED ARE MEANINGLESS. 
HOWEVER, THIS FUNCTION RETURNS THE NEXT CHARACTER TO BE HYTYFED IN A. 
IF ALL THE CHARACTERS OF THE BUFFER HAVE BEEN READ, THIS FUNCTION 
FAILS BY BRANCHING TO THE ADDRESS SPECIFIED IN THE LABEL VARIABLE 
GFAIL INSTEAD OF RETURNING. 

THIS FUNCTION SHOULD BE CHANGED LATER TO ALLOW LINES TO BE HYTYPED 
BACKWARDS. 


GNCHR NOP 


000000 
067067 LDB RP POINTS TO NEXT CHARACTER TO READ 
057070 CPB WP 
124154 JMP GFAIL,1I FINISHED READING 
063067 LDA RP 
001100 ARS DETERMINE WORD ADDRESS 
160000 LDA A,I - AND PICK UP THE WORD 
006011 SLB,RSS IF WE'RE TRYING TO REF THE LEFT BYTE 
001727 ALF,ALF SWAP BYTES 
037067 ISZ RP FOR NEXT CHAR 
013045 AND BYTEO GIVES US ONE CHAR 
126770 JMP GNCHR,»I 
* FORCE LAST COMMAND TO BE SENT TO HYTYPE 
063066 FORCE LDA ODATA OUTPUT LAST BYTE 
103615 OTA HYTCC,C AND TURN OFF INTERRUPTS. 
060253 LDA PFIN PRINT FINISHED 
070750 STA ASAVE 
114135 JSB SNDM1,1 SEND TO M1 
126402 JMP XHTYP,I WAIT FOR SOMETHING 
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1873 * 

1874 = PARAMETERS 

1875 03012 000000 CCMD OCT 0 CHARACTER COMMAND 

1876 03013 000001 =4HCMD ocT 1 HORIZONTAL COMMAND 

1877 ©3014 000002 =VCMD OcT 2 VERTICAL COMMAND 

1878 03015 034000 RUP ocT 34000 RIBBON LIFT COMMAND 

1879 03016 000001 RIBUP ocT 1 RIBBON UP INDICATION 

1880 03017 000000 RIBDN OCT ¢) RIBBON DOWN INDICATION 

1881 00013 000000 STROB EQU 11 STROBE FIELD FROM RIGHTMOST BIT 
1882 * FIXED HYTYPE COMMANDS TO PROCESS UNDERSCORE 

1883 03020 010004 HLODWN OcT 10004 HALF LINE DOWN 

1884 03021 012004 HLUP OcT 12004 HALF LINE UP 

1885 * CONSTANTS 

1886 03022 177676 CM102 ocT -102 

1887 03023 177700 CM100 OCT -100 

1888 03024 177737 CM41 — oct -41 

1889 03025 177740 CM40 OcT -40 

1890 03026 177741 C¢M37 OcT -37 

1891 03027 177770 c¢M10 OCT =10. . 

1892 03030 000006 C6 OCT 6 

1893 ©3031 000007 C7 OCT 7 

1894 03032 000010 C10 OCT 10 

1895 03033 000074 C74 OCT 74 

1896 03034 000077 C77 OcT 77 

1897 03035 000102 C102 OCT 102 

1898 03036 100240 HOFF OCT 100240 HYTYPE “OFF" STATUS WORD 

1899 03037 004036 MARGN ocT 4036 SPACE 5 RIGHT 

1900 00177 000000 MXLPV EQU 127 MAXIMUM LINE POSITION-5S 

1901 00000 000000 MNLPV EQU 0 MINIMUM LINE POSITION 

1902 03040 000000 MINLP ABS MNLPV 

1903 03041 000177 MAXLP ABS MXLPV 

1904 03042 000000 CMNLP ABS -MNLPV 

1905 03043 177601 CMXLP ABS -MXLPV 

1906 03044 000177 COMP ABS MXLPV-MNLPV 

1907 03045 000377 BYTEO ocT 377 MASK FOR LOW ORDER BYTE 

1908 03046 002000 BIT10 OCT 2000 CONTROLS DIRECTION OF MOVEMENT 
1909 03047 000012 ULF ocT 12 CHAR. LINE FEED 

1910 03050 000014 EJECT OCT 14 PAGE EJECT . 

1911 03051 000015 CR ocT 15 CHAR. CARRIAGE RETURN 

1912 03052 000040 BLANK OcT 40 CHAR. BLANK 

1913 03053 000040 CENT ocT 40 CHAR. CENT SIGN 

1914 03054 000004 DROP OCT 4 ASCII CONTROL-D 

1915 03055 000022 RAISE OCT 22 ASCII CONTROL-R 

1916 03056 000140 UNDER ocT 140 CHAR. UNDERSCORE 

1917 03057 000140 DASH OCT 140 CHAR. DASH 

1918 * VARIABLES 

1919 03060 000000 BLKCT OCT 0 COUNT OF SUCCESSIVE BLANKS IN LINE 
1920 03061 000000 CCHAR OcT 0 CURRENT CHARACTER 

1921 03062 O00000 CTYPE OCT ) COMMAND TYPE 

1922 03063 000000 HNFT OCT 0 HYTYPE NOT FIRST TIME (FROM BUFFER) 
1923 03064 000000 LCNT OCT ) LINE COUNT (LAST LINE PRINTED) 
1924 03065 O00000- LLEN ocT re) LENGTH OF CURRENT LINE (POSITION OF 
1925 x LAST CHARACTER PRINTED) 

1926 03066 000000 ODATA OCT OLD DATA 


1927 03067 000000 RP OCT READ POINTER OF BUFFER 


PAGE 52 


~ HP RESIDENT VERSION 2.8 


1928 03070 000000 WP OCcT 


(7 SEPT 76) 


WRITE POINTER OF BUFFER 


PAGE 


1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
i959 
1960 
1961 
1962 
1963 
196% 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
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03071 
03072 
03073 
03074 
C3075 
03076 
03077 
03100 
03101 
03102 
03103 
03104 
03105 
03106 
03107 
03110 
03111 
03112 
03113 


03114 


03115 
03116 
03117 
03120 
03121 
03122 
03123 


03124 
03125 


03126 
03127 
03130 
03131 
03132 
03133 
03134 
03135 
03136 
03137 
03140 
03141 
03142 


000000 
102204 
027114 
073144 
003400 
073150 
077145 
102300 
002400 
001520 
102201 
002004 
073146 
063071 
073147 
102501 
073151 
106704 
102050 


063150 


002003 
027143 
002400 
073150 
060236 
102611 
060727 


102614 
063146 


103101 
000036 
102101 
102712 
102713 
002020 
102100 
063151 
102601 
063144 
067145 
102704 
127147 


PWRFL 


DOWN 


(7 SEPT 76) 


ed ote 
i a 9 


POWER FAI 
NOP NORMAL ENTRY 
SFC 4 

JMP UP 
STA SAVEA 
CCA 

STA SAVER 
STB SAVEB 
SFS 6) 

CLA 

ERA,ALS 

SOC 

INA 

STA SAVEO 
LDA PWRFL 
STA SAVEP 
LIA SR 
STA SAVSW 
CLC 4 

HLT 50B 
LDA SAVER 
SZA,RSS 

JMP HALT 
CLA 

STA SAVER 
LDA CLRDC 
OTA CMND 
LDA BIT15 
OTA PRiICC 
LDA SAVEO 
CLO 

SLA,ELA 

STF 1 

STC RSTRT 
STC M110 
SSA 

STF 0 

LDA SAVSW 
OTA SR 
LDA SAVEA 
LDB SAVEB 
STC 4 

JMP SAVEP,1 


ser” 3s ie Pp W R F L Ser Ges. es AS ia se Use Soe ose 
L INTERRUPT SAVE/RESTORE ROUTIN 


SKIP ON POWER FAIL INTERRUPT 


SAVE A REGISTER 


SET *RUN' SWITCH 

SAVE B 

ARE INTERRUPTS ARMED? 
NO 


MOVE EXTEND BIT INTO A 

IS OVERFLOW SET? 

YES 

SAVE E AND O AND I0 STATUS. 
SAVE P-COUNTER 


SAVE SWITCH REGISTER 
SET FOR RESTART ROUTINE 
ALL HALT 


WAS COMPUTER RUNNING WHEN POWER 
DROPPED 


NO 
YES. RESET RUN SWITCH 
CLEAR TAPE DECK/CONTROLLER 


OUTPUT A NOP 

TO THE PRINTER 

RESTORE E AND O 

CLEAR OVERFLOW 

WAS OVERFLOW ON BEFORE 
YES. RESET IT. 

REARM LINK FOR INTERRUPTS 


WERE INTERRUPTS ENABLED 
YES 
RESTORE SWITCH REGISTER 


RESTORE A 

RESTORE B 

RESET POWERFAIL LOGIC 
NORMAL EXIT | 


PAGE 


1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
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03143 


03144 
03145 
03146 
03147 
03150 
03151 


03152 
03153 
03154 


00000 


102000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
102505 
102060 


000000 


HALT 


SAVEA 
SAVEB 
SAVEO 
SAVEP 
SAVER 
SAVSW 


PARER 


HLT 


OCT 
OCT 
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io) 


oo0o00 0 


Ded 
as 


Pp A R E ate ate ate ate ote Od yd ote ato ete Oy ee er td 


PARITY ERROR HALT ROUTINE 


NOP 
LIA 
HLT 


END 


5 
60B 


NORMAL ENTRY~ADDRESS OF THE INSTR. 
GET ADDRESS OF FAILED LOCATION 
DIE WITH ADR OF BAD LOC IN A REG 
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we 


da 


PAGE OOC1 


ste 
25 38 


NO ERRORS* 


ASMB,AyB,L 


Op SIR STR aa ae ee Me I Nag 9 RE Pe TPR tere 


BO 2BES 


{vera 
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0001 
0003 
0004 
0005 
0006 


0008 
0009 
0010 
0011 
0012 
0013 


0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 


Oo002 #01 HP DOT VERSION 1.3 

ASMB,A,B,L 
00003 ORG 38 
00003 016440 BRKGO ABS BKST1 
16C0C ORG 16000B 
00016 Urt EQU 168 
00000 A EQU O 
00001 ) EQU 1 
16000 016002 JSB GO 
16001 026034 JMP LOOP 
16002 O00000C_ GO NOP 
16003 103100 CLF O 
16004 C63034 LDA BINDR 
16005 070003 STA BRKGO 
16006 002400 CLA 
16007 073024 STA PRCDF 
16010 073056 STA EXTND 
16011 073057 STA OVRFW 
16012 073060 STA INT 
16013 106700 CLC O 
16014 103101 CLO 
16015 000040 CLE 

“WAS THERE A BREAKPOINT 
16016 053037 CPA BREAK 
16017 026022 JMP SALUT 
16020 063040 LDA BKCEL 
16021 173037 STA BREAK,I 
16022 063115 SALUT LDA CR 
16023 016775 JSB TYPE 
16024 063111 LDA LF 
16025 016775 JSB TYPE 
16026 063127 LDA DDD 
16027 016775 JSB TYPE 
16030 063127 LDA DDD 
16031 016775 JSB TYPE 
16032 063134 LDA TTT 
16033 016775 JSB TYPE 


(6/75) 


COMMUNICATIONS CELL FOR BREAKPOINTS 


L 


TURN OFF I/0 
RESTORE POINTER FOR BREAKPOINT REENTRY TO DDT 
STORE ON ZERO PAGE 

RESET PROCEED FLAG 

RESET INDICATOR IMAGES 


RESET INDICATORS 


SET IN A PREVIOUS INCARNATION 


PROCEED . 
YES. RESTORE ORIGINAL CONTENTS 


A 
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0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
C053 


‘0054 


0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
006% 
0065 
0066 
0067 
0068 
0069 


0003 #01 


16034 
£6035 
L6036 
16037 
16040 
16041 
16042 
16043 
16044 
16045 
16046 
16047 
16C50 
16051 
16052 
16053 
16054 
16055 
16056 
16057 
16060 
16061 
16062 
16063 
1606% 


017005 
016523 
026052 
016676 
026065 
026166 
026171 
026222 
026240 
026247 
026260 
026315 
026334 
026334 
016676 
026334 
026166 
026171 
026334 
026244 
026334 
026334 
026334 
026340 
0263 3% 


LOOP 
LOOP1 


LOOP2 


HP DDT VERSION 


JSB 
JSB 
JMP 
JS8 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JSB 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 


1.3 


CRLF 
RE 
LOOP2 
Ic 
OPEN 
LFEED 
START 
EQUL1 
SETBP 
LDAB 
GOTO 
STIND 
ERROR 
ERROR 
Ic 
ERROR 
LFEED 
START 
ERROR 
CLRBP 
ERROR 
ERROR 
ERROR 
PROCD 
ERROR 


BEGIN NEW LINE 

LOOK FOR EXPRESSION 

IF NOT FOUND 

INTERPRET TERMINAL CHAR 

/ OR <BACKSLASH> OR <LEFT ARROWD 
CR | 

LF OR <UP ARROW> 


<EXCLAMATION POINT> 
<SEMI-COLONDA OR <SEMI-COLONDB 
<SEMI-COLONDG 

<SEMI-COLONDI 

<SEMI-COLONDP 

OTHER 

INTERPRET TERMINAL CHAR, NO EXPR 
/ OR <BACKSLASH> OR <LEFT ARROW> 
CR 

LF OR <UP ARROWD 


<EXCLAMATION POINT> 
<SEMI-COLONDA OR <SEMI-COLOND3B 
<SEMI-COLONDG 

<SEMI-COLONDI 

<SEMI-COLONDP 

OTHER 
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OO71 16065 063025 OPEN LDA VALUE UPDATE VALUE OF DOT 


0072 16066 073026 STA JOT 

0073 16067 073027 STA CELL KEEP FOR POSSIBLE PEEKING 

0074 16070 063030 OPENO LDA CHAR 

0075 16071 073031 STA MODE SET DISPLAY MODE TO / OR <BACKSLASH>D OR 
0076 * <LEFT ARROWD 

OO77 16072 017015 OPEN1 JSB TAB TABULATE (3 SPACES) 

0078 16073 063031 LDA MODE 

0079 16074 053110 CPA BSLSH <BACKSLASH> 

0080 16075 026107 JMP OPEN2 DO NOT SHOW CONTENTS OF CELL IF MODE 
0081 16076 053114 CPA LARO <LEFT ARROWD> 

0082 16077 026144 JMP OPENS INTERPRET AS Z/C PAGE 

0083 16100 163027 OPNiA LDA CELL,I ASSUMING WE ARE IN / MODE 

0084 16101 073023 STA CNTNT TEMPORARILY FOR LATER DISPLAY 
0085 16102 013066 AND ADMSK STRIP TO FULL ADDRESS 

0086 16103 073027 STA CELL FOR PEEKING 

0087 16104 063023 LDA CNTNT NOW DISPLAY IT 

0088 16105 016464 JSB PRINT 

0089 16106 017015 JSB TAB 

0090 16107 016523 OPEN2 JSB RE LOOK FOR REPLACEMENT EXPR 

0091 16110 026131 JMP OPEN3 IF NONE FOUND 

0092 16111 016676 JSB Ic INTERPRET TERMINAL CHAR 

0093 16112 026065 JMP OPEN / OR <BACKSLASH> OR <LEFT ARROWD 
0094 16113 026456 JMP CLOSE CR 

0095 16114 026461 JMP CONT LF OR <UP ARROWD 

0096 16115 026227 JMP EQUL2 = 

0097 16116 026240 JMP SETBP <EXCLAMATION POINT> 

0098 16117 026247 JMP LDAB <SEMI-~COLONDA OR <SEMI-COLCNDOB 
0099 16120 026260 JMP GOTO <SEMI-COLONDG 

0100 16121 026315 JMP STIND <SEMI-COLONDI 

0101 16122 026334 JMP ERROR <SEMI-COLONDP 

0102 16123 063030 LOA CHAR ELSE OK IF A 

0103 16124 053117 CPA QUEST 

0104 16125 026127 JMP +2 

0105 16126 026334 JMP ERROR NO. OH WELL 

0106 16127 017015 JS8 TAB YES. ABORT AND TRY AGAIN 

0107 16130 026107 JMP OPEN2 LOOK FOR REPLACEMENT EXPRESSION 
0108 16131 016676 OPEN3 JSB IC INTERPRET TERMINAL CHAR, NO REPLACFMENT EXPR 
0109 16132 026070 JMP OPENO / OR <BACKSLASH> OR <LEFT ARROWD 
0110 16133 026166 JMP LFEED CR 

0111 16134 026173 JMP STRT1 LF OR <UP ARROW> 

0112 16135 026233 JMP EQUL3 = 

0113 16136 026244 JMP CLRBP <EXCLAMATION POINT> 

0114 16137 026334 JMP ERROR <SEMI-COLONDA OR <SEMI-COLONDS 
0115 16140 026334 JMP ERROR <SEMI-COLON>SG 

0116 16141 026334 JMP ERROR <SEMI-COLONDI 

0117 16142 026340 JMP PROCD <SEMI-COLONDP 


0118 16143 026334 JMP ERROR OTHER 
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PAGE 


0120 
0121 
0122 
0123 
0124 
0125 
0126 
O127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 


0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 


000s #01 


16144 
16145 
16146 
16147 
16150 
16151 
16152 
16153 
16154 
16155 
16156 
16157 
16160 
16161 
16162 
16163 
16164 
16165 
16166 
16167 
16170 
16171 
16172 
16173 
16174 
16175 
16176 
16177 
16200 
16201 
16202 
16203 
16204 
16205 
16206 
16207 
16210 
16211 
16212 
16213 
16214 
16215 
16216 
16217 
16220 
16221 
16222 
16223 
16224 
16225 
16226 


063112 
073031 
063027 
013065 
002002 
026156 
063027 
013067 
073027 
026100 
063026 
013070 
070001 
063027 
013067 
030001 
073027 
026100 
063111 
016775 
126002 
063112 
073031 
063030 
053113 
026203 
063115 
016775 
063115 
016775 
026204 
017005 
063030 
053113 
026220 
063063 
043026 
013066 
073026 
073027 
016464 
063031 
016775 
026072 
003400 
026210 
017015 
063025 
016464 
017015 
126002 


OPENS LDA 


OPENS 


LFEED 


START 


STRT1 


STRT2 


STRT3 


STRT4 


EQUL1 


STA 
LDA 
AND 
SZA 
IMP 
LDA 
AND 
STA 
IMP 
LDA 
AND 
STA 
LDA 
AND 
IOR 
STA 
IMP 
LDA 
ISB 
IMP 
LDA 
STA 
LDA 
CPA 
IMP 
LDA 
ISB 
LDA 
ISB 
IMP 
JSB 
LDA 
CPA 
IMP 
LDA 
ADA 
AND 
STA 
STA 
JSB 
LDA 
ISB 
IMP 
CCA 
IMP 
ISB 
LDA 
ISB 
ISB 
IMP 


HP DDT VERSION 1.3 


SLASH 
MODE 
CELL 
BIT10 


OPENS 
CELL. 
SMASK 
CELL 
OPNIA 
DOT 
NSMSK 
b 
CeLL 
SMASK 
B 
CELL 
OPNIA 
LF 
TYPE 
GO,I 
SLASH 


INITIALIZE MODE 
INTERPRET BIT 10 AS ZERO OR CURRENT 
SKIP IF O (ON PAGE O) 


ZERO PAGE 


GET CURRENT PAGE BITS 


NOW GET PAGE ADDRESS 


MERGE IN HIGH BITS 


TYPE LF &€ START NEW LINE 


INITIALIZE TO / MODE 


LOOK AT TERMINAL CHAR 
SKIP IF NOT <UP ARROWD>D 
GIVE CRLF 

GIVE 2 LFS 


CHECK TERMINAL CHAR AGAIN 
SKIP IF NOT <UP ARROWD 
& DECREMENT DOT 


PREVENT OVERFLOW OF DOT 


FOR PEEKING 
TYPE VALUE OF DOT 


INDICATE / OR =BACKSLASH> OR <LEFT ARROW> MODE 


SHOW VALUE OF EXPR 
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0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
O201 
0202 
0203 
020% 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 


0006 #01 HP 


16227 
16230 
16231 
16232 
16233 
16234 
16235 
16236 
16237 
16240 
16241 
16242 
16243 
16244 
16245 
16246 
16247 
16250 
16251 
16252 
16253 
16254 
16255 
16256 
16257 
16260 
16261 
16262 
16263 
16264 
16265 
16266 
16267 
16270 
16271 
16272 
16273 
16274 
16275 
16276 
16277 
16300 
16301 
16302 
16303 
16304 
16305 
16306 
16307 
16310 
16311 
16312 
16313 
16314 


017015 
063025 
016464 
126002 
017015 
063023 
016464 
017015 
026107 
063025 
013066 
073037 
126002 
002400 
073037 
126002 
063030 
053126 
026255 
063025 
073032 
126002 
063025 
073033 
126002 
063037 
002002 
026270 
063025 
013066 
073025 
016276 
127025 
163037 
073040 
073036 
063035 
173037 
026263 
000000 
017005 
063056 
001500 
103101 
063057 
002020 
102101 
103100 
063060 
002020 
102100 
063032 
067033 
126276 


DDT ViRSION 1.3 (6/75) 


EQULE 


EQUL3 


SETSP 


CLRBP 


LDAB 


LDAB1 


GOTO 


GOTO1 


GOTO2 


GOTO 3 


ISB 
LDA 
JS8 
IMP 
JS8 
LDA 
ISB 
ISB 
IMP 
LDA 
AND 
STA 
IMP 
CLA 
STA 
IMP 
LDA 
CPA 
IMP 
LDA 
STA 
IMP 
LDA 
STA 
IMP 
LDA 
SZA 
IMP 
LDA 
AND 
STA 
ISB 
IMP 
LDA 
STA 
STA 
LDA 
STA 
IMP 
NOP 
ISB 
LDA 
ERA 
che 
LDA 
SSA 
STO 
CLF 
LDA 
SSA 
STF 
LDA 
LDE 
IMP 


TAB 
VALUE 
PRINT 
GO,1 
TAB 
CNTINT 
PRINT 
TAB 
OPEN2 
VALUE 
ADMSK 
BREAK 
GO,I 


BREAK 
GO,I 
CHAR 
BBB 
LDAB1 
VALUE 
AA 
GO,I 
VALUE 
BB 
GOrI 
BREAK 


GOTO2 
VALUE 
ADMSK 
VALUE 
GOTO3 
VALUE;I 
BREAK,I 
BKCEL 
BKSAV 
BKIST 
BREAK,1 
GOTO1 


CRLF 
EXTND 


AA 
BB 
GOTO3,1 


SHOW VALUE OF EXPR 
PAU 


RETYPE CONTENTS OF DISPLAYED CELL 


GET ADDRESS WHERE WE ARE TO PUT THE BREAKPOINT 
MASK IT DOWN FOR SAFETY 

SET NEW BREAK ADDRESS 

PAU 


SET BREAK ADDRESS TO O 
PAU 


SKIP IF NOT B 

MUST BE A 

PAU 

PAU 

TEST BREAK FOR ZERO VALUE (NO BREAKPOINT) 


BREAKPOINT: DO FUNNY STUFF 


RESTORE STATE 
LEAVE DDT--BEGIN EXECUTION OF PGM 
SAVE INST AT BKPT 


PLANT BKPT 


RESTORE MACKINE STATE 
ROTATES O BACK INTO E 
CLEAR OVERFLOW 


SET OVERFLOW 
DISABLE I/0 


TURN ON I/O AGAIN 
LOAD ACTIVE REGISTERS 


(oma 
Ow 
OF: 
Cw 
Cs 
a 
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O227 
0228 
O229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
9247 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 


0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 


OooO7 #01 


16315 
16316 
16317 
16320 
16321 
16322 
16323 
16324 
16325 
16326 
16327 
16330 
16331 
16332 
16333 
16334 
16335 
16336 
16337 
16340 
16341 
16342 
16343 
16344 
16345 
16346 
16347 
16350 
16351 
16352 
16353 
16354 


16355 
16356 
16357 
16360 
16361 
16362 
16363 
16364 
16365 
16366 
16367 
16370 
16371 
16372 
16373 


067025 
002400 
101041 
073057 
101043 
073056 
101042 
002400 
101041 
073060 
063056 
006400 
100041 
077056 
126002 
017015 
063117 
016775 
0260 34 
063024 
002021 
026334 
002400 
073024 
063037 
053046 
026411 
063046 
073025 
063040 
013106 
002003 
026260 
063040 
013101 
070001 
063100 
013102 
030001 
073040 
063036 
013067 
073107 
063036 
013105 
053105 
026404 


STIND 


ERROR 


PROCD 


LDB 
CLA 
LSR 
STA 
LSR 
STA 
LSR 
CLA 
LSR 
STA 
LOA 
CLB 
LSL 
STB 
JMP 
JSB 
LOA 
JS6b 
JMP 
LCA 
SSA, 
JMP 
CLA 
STA 
LDA 
CPA 
JMP 
LDA 
STA 
LOA 
AND 
SZA, 
JMP 
LDA 
AND 
STA 
LDA 
AND 
IOR 
STA 
LDA 
AND 
STA 
LDA 
AND 
CPA 
JMP 


HP DDT VERSION 1.3 


VALUE 


1 
OVRFW 
3 
EXTND 
2 


Z 
INT 
EXTND 


1 
EXTND 
GO,I 
TAB 
QUEST 
TYPE 
LOOP 
PRCDF 
RSS 
ERROR 


PRCDF 
BREAK 
L 
PRCD1 
L 
VALUE 
BKCEL 
MMSK 
RSS 
GOTO 
BKCEL 
OPMSK 
B 
JDINS 
NPMSK 
B 
BKCEL 
BKSAV 
SMASK 
USERQ 
BKSAV 
PMSK 
PMSK 
GETPG 


SET INDICATOR IMAGES 


PAU 


<SEMI-COLON>P IS LEGAL ONLY IF A BREAK HAS 


NEW BREAK MUST OCCUR $P IS OK 
TEST TO SEE IF BKPT KAS BEEN MOVED 
SKIP IF BKPT HAS NOT BEEN MOVED 


GET INSTRUCTION AT BROKEN POINT 
DOES IT REFERENCE MEMORY 


NO. PAU 

YES 

WHAT IS THE OP CODE? 
COPY INTO 5 


GET ADDRESS WITHIN THE PAGE 


MASK FOR Z/C BIT 
IS IT ON CURRENT PAGE? 
YES 


OCCUR 


@ 
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PAGE 


0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 


0008 #02 


16374 
16375 
16376 
16377 
16400 
16401 
16402 
16403 
16404 
16405 
16406 
16407 
16410 
16411 
16412 
16413 
16414% 
16415 
16416 
16417 


063036 
002020 
026400 
026260 
063107 
033104 
073107 
026260 
063037 
013103 
033107 
073107 
026374 
034000 
073043 
034000 
073044 
063045 
073025 
026260 


DOIT 


ADD1 


GETPG 


PRCD1 


LDA 
SSA 
JMP 
JNP 
LDA 
IOR 
STA 
JMP 
LDA 
AND 
IOR 
STA 
JMP 
ISZ 
STA 
ISZ 
STA 
LDA 
STA 
JMP 


HP DDT VERSION 1.3 


BKSAV 


ADD1 
GOTO 
USERQ 
IMSK 
USERQ 
GOTO 
BREAK 
ABMSK 
USERQ 
USERQ 
DOIT 
A 
BKCL3 
A 
BKCLS 
BKPTR 
VALUE 
GOTO 


NO 

IT IT AN INDIRECT REFERENCE? 
NO. MCRE WORK 

YES 

GET INSTRUCTION 

TURN ON THE INDIRECT BIT 


CONTINUE 

GET ADDRESS OF BREAK LOCATION 

MASK OUT TO GET THE PAGE NUMBER 
MERGE IN THE ADDRESS WITHIN THE PAGE 
MAKE PTR TO BREAK ADDR+1 


MAKE PTR TO BREAK ADDR + 2 
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0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 


0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 


0009 #02 


16420 
16421 
16422 
16423 
16424 
16425 
16426 
16427 
16430 
16431 
16432 
16433 
164 34% 
16435 
16436 
16437 


16440 
16441 
16442 
16443 
16444 


16445 
16446 
16447 
16450 
16451 
16452 
16453 
16454 
16455 
16456 
16457 
16460 
16461 
16462 
16463 


000000 
073032 
077033 
002400 
102200 
003400 
073060 
103100 
002400 
103201 
003400 
073057 
002400 
001600 
073056 
126420 


016420 
063037 
073046 
073026 
0630 36 


173037 
003400 
073024 
063032 
016464 
017015 
063033 
016464 
026034 
063025 
173026 
026166 
063025 
173026 
026173 


=SAVE MACHINE STATE 


SAVE 


BKST1 


CLOSE 


CONT 


NOP 
STA 
STB 
CLA 
SFC 


STA 
CLF 
CLA 
SOC 
CCA 
STA 
CLA 
ELA 
STA 
JMP 


JSB 
LDA 
STA 
STA 
LDA 


STA 
CCA 
STA 
LDA 


ISB 


JSB 
LDA 
JS8 
JMP 
LDA 
STA 
JMP 
LDA 
STA 
JMP 


HP DDT VERSION 1.3 (6/75) 


AA 
BB 


0 


CCA 


INT 
6) 


¢C 


OVRFW 


EXTND 
SAVE,I 


SAVE 
BREAK 
L 

DOT 
BKSAV 


BREAK, I 


PRCDF 
AA 
PRINT 
TAB 
BB 
PRINT 
LOOP 
VALUE 
DOT, 1 
LFEED 
VALUE 
DOT,I 
STRT1 


SAVE MACHINE STATE 


SKIP ON 


INTERRUPT GISABLED 
NO--SET A=-1 


SAVE I/0 STATE 
TURN OFF INTERRUPTS 


SKIP IF OV IS CLEAR & CLEAR OV 


NO--SET A=-1 


ROTATES 


SAVE PLACE FOR <SEMI-COLON>P 
NICE THING FOR DOT TO START OUT WITH 
GET THE CONTENTS OF THE CELL WHERE THE BREAK- 


E INTO BIT O CF A 


RE-ENTRY PT AFTER BREAK 


POINT WAS 
AND PUT THEM BACK 


ENABLE 


+P 


TYPE OUT A 


TYPE OUT B 


CHANGE CONTENTS OF CELL 
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0091 sd 

0092 16464 000000 PRINT NOP ENTRY POINT: HOLDS VALUE TO BE TYPED 
0093 16465 073047 STA NUM ; 
0094 16466 063072 LDA M5 SET CNTR FOR 6 DIGITS 

0095 16467 073050 STA CNTR 

0096 16470 002400 CLA 

OO0O97 16471 073051 STA TPFLG RESET LEADING ZERO FLAG 
0098 16472 067047 LDs NUM GET LEADING DIGIT 

0099 16473 100101 RRL i 

C100 16474 026500 JMP PRNT2 

0101 16475 067047 PRNT1 LDS NUM GET DIGIT 

0102 16476 002400 CLA 

0103 16477 100103 RRL 3 

0104 16500 077047 PRNT2 STE NUM SAVE NUMBER RESIDUE 

0105 16501 043071 ADA SIXTY MAKE AN ASCII CHAR. 

0106 16502 053071 CFA SIXTY IS IT A ZERO? 

0107 16503 053051 CPA TPFLG YES s. -BUT> TS St THe FIRST? 
0108 16504 026517 JMP PRNTS 

0109 16505 063120 LOA BLANK YES. LEAVE A SPACE TO RIGHT JUSTIFY 
0110 16506 016775 JSB TYPE 

O111 16507 037050 PRNT3 ISZ CNTR IS THIS THE LAST CHAR? 

0112 16510 026475 JMP PRNTI NO. CONTINUE 

0113 16511 002400 CLA 

0114 16512 067047 LOB NUM Yess. ‘GET TT 

0115 16513 100103 RRL 3 AND MAKE IT 

0116 16514 043071 ADA SIXTY AN ASCII CHAR 

O117. 16515 016775 JSB TYPE AND PRINT IT 

0118 16516 126464 JMP PRINT,I 

0119 16517 067071 PRNT4 LDB SIXTY 

0120 16520 077051 STB TPFLG SET TO NON-LEADING ZERO 
O21. 16524 -016715 JSB TYPE TYPE IT 

0122 16522 026507 JMP PRNT3 

0123 16523 000000 KE NOP ENTRY: ROUTINE TO RECOGNIZE EXPRESSIONS 
0124 16524 002400 CLA 

Gigs. 6525 0735025 STA VALUE INITIALLY 

0126 16526 C63120 LDA BLANK 

0127 16527 073052 RE1l STA OP 

0128 16530 016566 JSB RT RECOGNIZE TERM 

0129 16531 026556 JMP RES NOT A TERM--LOOK FOR UNARY OPERATOR 
0130 16532 063052 LDA OP INSPECT THE OPERATOR 

0131 16533 053120 CPA BLANK TREAT BLANK LIKE + 

0132 16534 026537 JMP RE2 

0133 16535 053121 CPA MINUS DETERMINE WHETHER + OR - 


0134 16536 026553 JMP REG Pe = 
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0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 


' 0164 


0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 


0011 402 HP GuT VEKSION 1.3 
16537 063053 RE2d LDA NUMBER 
16540 043025 RE3 ADA VALUE 
16541 073025 STA VALUE 
16542 063030 LDA CHAR 
16543 053121 CPA MINUS 
16544 026527 JMP REI 
16545 053120 CPA BLANK 
16546 026527 JMP REI 
16547 053122 CPa PLUS 
16550 026527 JMP RE1 
16551 036523 ISZ RE. 
165$2 126523 JMP RE,I 
16553 063053 REG LDA NUMBR 
16554 003104 CMA,CLE,INA 
16555 026540 JMP RE3 
16556 063030 RE5 LDA CHAR 
16557 053121 CPA MINUS 
16560 026527 JMP REI 
16561 053120 CPA BLANK 
16562 026527 JMP RE1 
16563 053122 CPA PLUS 
16564 026527 JMP REI 
16565 126523 JMP RE,I 
16566 000000 RT NOP 

16567 002400 CLA 

16570 073054 STA RTF1 
16571 073055 STA RTF2 
16572 073053 STA NUMBR 
16573 016761 RT1 JSB READ 
16574 043073 ADA M60 
16575 002020 SSA 

16576 026615 JMP RT2 
16577 C43074 ADA M10 
16600 002021 SSA,RSS 
16601 026615 JMP RT2 
16602 063054 LDA RTF1 
16603 002020 SSA 

16604 126566 JMP RT,I 
16605 067030 LDB CHAR 
16606 101043 LSR 3 
16607 067053 LDB NUMBR 
16610 100043 LSL 3 
16611 077053 STB NUMBR 
16612 003400 CCA 

16613 073055 STA RTF2 
16614 026573 JMP RT1 


(6/75) 


COMPUTE NEW VALUE 


SKIP IF NOT - 
CONTINUE WITH EXPR 
SKIP IF NOT BLANK 
CONT 

SKIP IF NOT + 


EXPR DONE--BUMP RETURN €& EXIT 


CAN YOU BELIEVE THIS? 


LOOK FOR UNARY OPERATOR 


GIVE UP--TAKE FAILURE EXIT 


ENTRY: TERM RECOGNIZER. SKIPS IF SUCCESSFUL 


DOT ENCOUNTERED FLAG 
DIGIT ENCOUNTERED FLAG 


IN A CHARACTER 


SKIP IF POSSIBLY A DIGIT 
IF NOT 


SKIP IF DIGIT 

IF NOT 

DIGIT FOUND. NOW... 

SKIP IF DOT HAS NOT BEEN ENCOUNTERED 


DOT ENCOUNTERED--SYNTAX ERROR 
ACCUMULATE NUMBER 


SET DIGIT ENCOUNTERED FLAG 
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0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
O221 
0222 
0223 
022% 
0225 
0226 
O227 
0228 
0229 
0230 
0231 


OO12 #02 


16615 
16616 
16617 
16620 
16621 
16622 
16623 
16624 
16625 
16626 
16627 
16630 
16631 
16632 
16633 
16634 
16635 
16636 
16637 
16640 
16641 
16642 
16643 
16644 
16645 
16646 
16647 
16650 
16651 
16652 
16653 
16654 
16655 
16656 
16657 
16660 
16661 
16662 
16663 
16664 
16665 
16666 
16667 
16670 
16671 
16672 
16673 
16674 
16675 


063055 
002021 
026622 
036566 
126566 
063030 
053123 
026642 
053124 
002001 
126566 
016761 
053125 
026650 
053126 
026652 
053132 
026654 
053131 
026656 
126566 
063026 
073053 
003400 
073054 
073055 
026573 
063032 
026643 
063033 
026643 
063046 
026643 
067056 
101041 
073062 
063060 
006400 
100041 
002400 
100042 
063062 
100041 
002400 
100042 
063057 
100041 
060001 
026643 


RT3 


RT4 
RTS 


RT8 


RT9 


HP DDT VERSION 1.3 


LDA RTF2 
SSA,RSS 
JMP RT3 
ISZ RT 
JMP RT,I 
LDA CHAR 
CPA DOTT 
JMP RT4 
CPA SEMIC 
RSS 

JMP RT,I 
JSB READ 
CPA AAA 
JMP RT6 
CPA BBB 
JMP RT7 
CPA LLL 
JMP RT8 
CPA III 
JMP RTO 
JMP RT,I 
LOA DOT 
STA NUMBR 
CCA 

STA RTF1 
STA RTF2 
JMP RT1 
LDA AA 
JMP RT5 
LDA BB 
JMP RT5 
LOA L 

JMP PTS 
LD8 EXTND 
LSR 1 

STA TEMP1 
LOA INT 
CL8 

LSL 1 

CLA 

LSL 2 

LDA TEMP1 
LSL 1 

CLA 

LSL 2 

LDA OVRFW 
LSL 1 

LDA B 

JMP RT5 


TEST DIGIT ENCOUNTERED FLAG 


DIGIT NOT YET ENCOUNTERED 
DIGIT HAS BEEN ENCOUNTERED--BUMP & RETURN 


IF . 

NOT A <SEMI-COLON> ERROR EXIT 
<SEMI-COLON> GET ANOTHER CHARACTER 
A FOUND 

B FOUND 

L FOUND 


I FOUND 
NONE OF THE ABOVE: ERROR EXIT 


SET FLAGS 


SET UP INDICATOR IMAGES FOR DISPLAY 


= es 
Co 
OS 
oN 
Ca 
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0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
O277 
0278 
0279 
0280 
0281 


0013 #02 HP DDT VERSION 1.3 (6/75 )HARACTERS 


16676 O00000 Ic NOP ENTRY: CATEGORIZE TERMINAL CHARACTERS 


16677 063030 LCA CHAR 

16700 053112 CPA SLASH 

16701 126676 JMP ICy,I / 1 

16702 053110 CPA BSLSH 

16703 126676 JMP IC,I <BACKSLASH> 1 
16704 053114 CPA LARO 

16705 126676 JMP IC,I <LEFT ARROWD 1 
16706 036676 18:2 

16707 053115 CPA CR 

16710 126676 JMP IC,I CR 2 

16711 036676 Isz Ic 

16712 053111 CPA LF 

16713 126676 JMP IC,I LF 3 

16714 053113 CPA UPARO 

16715 126676 JMP IC,I <UP ARROWD 3 
16716 036676 Isz Ic 

16717 053135 CPA EQL 

16720 126676 IMP IC,I = 4 

16721 036676 Isz Ic 

16722 053136 CPA EXCL 

16723 126676 JMP IC,I <EXCLAMATION POINT>D 5 
16724 036676 Isz Ic 

16725 053124 CPA SEMIC 

16726 026737 JMP ICi TO CHECK FURTHER 
16727 063061 LDA PVCHR TRY BACKING UP 
16730 053124 CPA SEMIC 

16731 026757 JMP IC3 

16732 036676 Isz Ic 

16733 036676 ISsz@ IC 

16734 036676 Isz Ic 

16735 036676 Isz Ic 

16736 126676 JMP IC,I OTHER 10 
16737 016761 I1C1 JSB READ GET ANOTHER CHARACTER 
16740 053125 IC2 CPA AAA 

16741 126676 JMP IC,I A 6 

16742 053126 CPA BBB 

16743 126676 JMP IC,I B 6 

16744 036676 Isz Ic 

16745 053130 CPA GGG 

16746 126676 JMP IC,I G 7 

16747 036676 Isz Ic 

16750 053131 CPA III 

16751 126676 JMP IC,I I 8 

16752 036676 Isz Ic 

16753.0531733 CPA PPP 

16754 126676 JMP IC,lI Pie 

16755 036676 Isz Ic 

16756 126676 JMP IC,I OTHER 10 
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0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 


0014 #02 HP DDT VERSION 1.3 (6/75) 
16757 063030 I1C3 LDA CHAR 
16760 026740 JMP IC2 
16761 O00000 KEAD NOP 

16762 063030 LDA CHAR 
16763 073061 STA PVCHR 
16764 063075 LDA DINPR 
16765 102616 OTA TTY 
16766 103716 STC TTY,C 
16767 102316 SFS TTY 
16770 026767 JMP *¥-1 
16771 102516 LIA TTY 
16772 013077 AND CHMSK 
16773 073030 STA CHAR 
16774 126761 JMP READ,I 
16775 OOO0C0O0 TYPE NOP 

16776 067076 LDB DOPR 
16777 106616 OTB TTY 
17000 102616 OTA TTY 
17001 103716 STC TTY,C 
17002 102316 SFS TTY 
17003 027002 JMP *-1 
17004 126775 JMP TYPE,I 
17005 000000 CRLF NOP 

17006 063115 LDA Ck 
17007 016775 JSB TYPE 
17010 063111 LDA LF 
17011 016775 JSB TYPE 
17012 063116 LDA LB 
17013 016775 JSB TYPE 
17014 127005 JMP CRLF,I 
17015 000000 TAB NOP 

17016 063120 LDA BLANK 
17017 016775 JSB TYPE 
17020 016775 JSB TYPE 
17021 016775 JSB TYPE 
17022 127015 JMP TAB,I 


ENTRY: READ A CHAR FROM TTY 

FOR POSSIBLE BACKING UP 

SELECT TTY RDR 

START IT & WAIT FOR CHAR TO APPEAR 


READ IT INTO A 
CONVERT TO H-P CODE 


EXIT 
ENTRY: TYPE OUT A CHAR TO TTY 


SELECT TTY PRINTER 
LOAD TTY BUFFER 
TYPE IT & WAIT FOR DONE 


EXIT 


TYPE HERALD 
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17023 
17024 
17025 
17026 
17027 
17030 
17031 
17032 
17033 
17034 
17035 
17036 
17037 
17040 
17041 
17042 
17043 
17044 
17045 
17046 
17047 
17050 
17051 
17052 
17053 
17054 
17055 
17056 
17057 
17060 
17061 
17062 
17063 
17064 
17065 
17066 
17067 
17070 
17071 
17072 
17073 
17074 
17075 
17076 
17077 
17100 
17101 
17102 
17103 
17104 
17105 
17106 
17107 


000000 
000000 
000000 


OO0000. 


000000 
000000 
000000 
000000 
000000 
016440 
124003 
000000 
000000 
000000 
127043 
127044 
000000 
000000 
017040 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000001 
000005 
002000 
017777 
001777 
016000 
000060 
177773 
177720 
177770 
160000 
120000 
000177 
153107 
074000 
103777 
016000 
100000 
002000 
070000 
000000 


DDT VERSION 


INT 
PVCHR 
TEMP1 


ONE 
FIVE 
BIT10 
ADMSK 
SMASK 
NSMSK 
SIXTY 
M5 
M60 
M10 
DINPR 
DOPR 
CHMSK 
JDINS 
OPMSK 
NPMSK 
ABMSK 
IMSK 
PMSK 
MMSK 
USERQ 


BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 1 


ee pe op ppt 


ABS BKST1 


1.3 


(6/75) 


JMP BRKGO,I 


BSS 1 
OCT 
BSS. 1 


0 


JMP BKCL3,yI 
JMP BKCL4,I 


BSS 
BSS 
ABS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
DEC 
DEC 
OCcT 
OCT 
OCT 
OCT 
OCT 
ocT 
OCT 
OcT 
OCT 
OCT 
OCT 


CPA 


OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
BSS 


1 
1 
BKCEL 


rary 


ee en ee ee 


5 

2000 
wan Aa Be Rs 
1777 
16000 
60 

are, 
177720 
177770 
160000 
120000 
177 


USERQsI 


74000 
103777 
16000 
100000 


2000 
70000 
1 


PROCEED FLAG 


LAST PLACE 


PRESET BREAK ADDRESS AT 'NONE! 
WHERE BREAKPOINTS ARE STORED AND HANDLED 
<PATCH> 
<PATCH> 


WHERE BREAK OCCURRED 


OP CODE MASK 


-~OPMSK 


INDIRECT REFERENCE MASK 
ZERO/CURRENT PAGE MASK 
MEMORY REFERENCE MASK 
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0374 17110 000134 S5SLSH OCT 134 <BACKSLASH> 


0375 17111 000012 LF OCT 12 LF 

0376 17112 O000C57 SLASH OCT 57 / 

O377 17113 000136 UPARO OCT 136 <UP ARROW> 
0378 17114 000137 LARO OCT 137 <LEFT ARROWD 
0379 17115 000015 CR OCT .15 CR 

0380 17116 000043 LB OCT 43 # 

0381 17117 O0OO0077 QUEST OCT 77 ? 

0382 17120 000040 BLANK OCT 409 BLANK 

0383 17121 000055 MINUS OCT 55 = 

0384 17122 000053 PLUS OCT 53 + 

0385 17123 000056 DCTT OCT 56 : 

0386 17124 000073 SEMIC OCT 73 <SEMI-COLON>D 
0387 17125 000101 AAA OCT 101 A 


0388 17126 000102 BBB OCT 102 B 
0389 17127 000104 DODD OCT 104 D 
0390 17130 000107 GGG OCT 107 G 
0391 17131 000111 III LO ay vee Be | I 
0392 17132 000114 LLL OCT 114 L 
0393 17133 000120 PPP OcT 120 P 
0394 17134 000124 TTT OCT 124 T 
0395 17135 000075 EQL OCT gS = 
0396 17136 000041 EXCL OCT 41 < 
0397 END 

= NO ERRORS* 


EXCLAMATION POINT> 


PAGE O00C1 


ASMB»A,ByL 


0001 


NO ERRORS* 


A “Duy ‘SUL ssauisng qcow @ papjojsaju} snonutyjuc7 
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0001 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
C034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 


0002 #01 


17200 


17200 


17201 
17202 
17203 
17204 


17205 
17206 
L207 
17210 


17211 
LIZZ 
17213 
17214 
17215 
17216 
17217 
17220 


LiZ22) 
17222 


17223 
17224 
17225 
17226 
Lidge? 
17230 
L7231 
17232 


1.7233 


17234 


17235 
17236 


107700 


063344 
O70C0O7 
063327 
070010 


063345 
070011 
063346 
070002 


063347 
103607 
102100 
103711 
063341 
103611 
027217 
000011 


063335 
103611 


103511 
013343 
002002 
027237 
063333 
103611 
027231 
001417 


102511 
013343 
002003 
027233 


ASMB,AybeL 


MAGNETIC TAPE CORE IMAGE CREATER/LOADER 


=SET UP DMA AND TAPE CONTROLLER 


ORG 172008 
CLC OC 
LDA SAFE 
STA e 

LDa HALT 
STA 108 
LDA SAFE+1 
STA 118 
LDA SAFE+2 
STA 2B 

LDA CWl 
OTA DMA,C 
STF 0 

STC CMMD,C 
LDA CLR 
OTA CMMD;,C 
JMP * 

OCT 11 

LDA SEL1 
OTA CMMD,C 
LIA CMMD,C 
AND BOT 
SZA 

JMP SPACE 
LDA REW 
OTA CMMD,C 
JMP * 

OCT 1417 
LIA CMMD 
AND BOT 
SZA,RSS 

JMP RWND 


TURN OFF INTERRUPTS BY RESETTING 
CONTROL BITS 


(CLC DMA,C) 

SET UP FOR DMA INTERRUPTS 

(HALT 4) . 

INTERRUPT FROM TAPE DATA CHANNEL IS 
ERROR 


(JSEB 25,1) | 


SET UP TAPE COMMAND INTERRUPT VECTOR 


(DEF CHECK) 


(DATA CHANNEL, CLC) 
SET UP DMA CONTROL WORD ONE 
REENABLE INTERRUPTS 


CLEAR THE TAPE CONTROLLER, BE SAFE 


AND WAIT FOR COMPLETION INTERRUPT 
MASK FOR CONTROLLER BUSY, RESET 
FAILURES 


SELECT COMMAND FOR TAPE UNIT #1 


GET TAPE STATUS : 
IS TAPE AT LOAD POINT? 


YES. CONTINUE 

NO. GET REWIND COMMAND 

OUTPUT IT 

WAIT TO COMMAND INIATION PAU 

(OFF LINE,REJECT,»ERROR»OR BUSY) FAIL 
MASK 

NOW WAIT TILL TAPE 

REWIND TO LOAD POINT 

OK YET? 

NO 
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0046 * 

0047 17237 063342 SPACE LDA FSF GET FORWARD SPACE FILE TO SKIP TO 
0048 * FILEMARK 

0049 17240 002040 SEZ IF WE ARE WRITING THEN 

CO50 17241 063340 LDA GWFM REPLACE IT WITH A GAP AND WRITE 
0051 * THE FILEMARK 

0052 17242 103611 . OTA CMMD,C AND OUTPUT IT 

0053 17243 027243 JMP * WAIT FOR COMPLETION INTERRUPT 

0054 17244 003477 OCT 3477 (ONLY EOF AND NO WRITE RING ON, OK) 
0055 * 

0056 17245 002041 CRE SEZ,KSS ARE WE TO READ OR WRITE? 

OOS7 17246 027262 JMP DOIT READ 

0058 17247 102000 HLT O WRITE. STOP 
C059 17250 106501 LIB SR SR SHOULD HAVE BEGINNING ADDRESS OF 
0060 * BLOCK 

0061 17251 102001 HLT i STOP 

0062 17252 102501 LIA SR SR SHOULD HAVE END ADDRESS OF BLOCK 
0063 17253 003004 CMA,INA TWO'S COMPLEMENT 

0064 17254 040001 ADA B NOW ADD TO BEGINNING TO MAKE 

0065 * NEGATIVE WORD COUNT 

0066 * 

0067 17255 073354 STA WOCNT 

0068 17256 077353 STB BEGIN 

0069 17257 102002 HLT 2 

0070 17260 102501 LIA SR SR SHOULD HAVE ENTRY POINT TO 

0071 * TRANSFER TO 

0072 17261 073355 STA ENTRY OR O TO CONTINUE WITH SUCCESSIVE BLOC 
OOO1 17262 063352 dDOIT LDA FIRST GET POINTS TO DMA, FIXED PARAMETER 
0002 * LIST 

0003 17263 017300 JSB RDWRT | GO. R/W PARAMETER RECORD 

0004 17264 063350 LDA CW2 GET POINTER TO NEW PARS FROM 

0005 * PARAMETER RECORD 


0006 17265 017300 JS6 RDWRT GO R/W DATA BLOCK 


2904 


eS 
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0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 


0004 #02 


17266 
17267 
17270 
17271 
17272 
1L72t3 


17274 
17275 
17276 


"17277 


17300 
17301 
17302 
17303 
17304 
17305 
17306 
LiSO 
17310 
17311 
17312 
17313 
17314 
17315 
17316 
17317 
17320 
17321 
17322 
17323 
17324 
17325 
17326 
17327 
17330 
17331 


067355 
006003 
027245 
063334 
103611 
027273 


000000 
002040 
102003 
124001 


000000 
106703 
164000 
002041 
047332 
1066C3 
102703 
034000 
164000 
106603 
067337 
CO02040 
067336 
107611 
103707 
027317 
003477 
127300 
000000 
037322 
103511 
113322 
002002 
102004 
037322 
127322 


END 


ROWRT 


CHECK 


HALT 


LDB 
S25 
JMP 
LDA 
OTA 
JMP 


ocT 
SEZ 
HLT 
JMP 


NOP 
CLC 
LDB 
SEZ 
ADB 
OTB 
STC 
1Sa 
LDB 
OTB 
LDB 
SEZ 
LDB 
OTB 
STC 
JMP 
OCT 
JMP 
NOP 
ISZ 
LIA 
AND 
SZA 
HLT 
ISZ 
JMP 


MAGNETIC TAPE CORE IMAGE CREATER/LOADER 


ENTRY 
»RSS 

CRE 

RWS 

CMMD,C 


B,l 


DMA2 
A,lI 
yRSS 
READ 
DMA2 
DMA2 
A 
A,I 
DMA2 
RCC 


WCC 
CMMD,C 
DMA,C 


3477 
RDWRT,I 


CHECK 
CMMD,C 
CHECK, 1 


vP 
CHECK 
CHECK,I 


IS THERE AN ENTRY POINT? 


NO, ITERATE BLOCKS 

OK LAST BLOCK 

OUTPUT A REWIND, OFFLINE 
WAIT TO CLEAN UP INTERRUPTS 


(ANYTHING OK NOW) 

ARE WE CREATING 

YES, PAU HANA 

NO, ENTER SOMETHING AND RUN IT. 


SET DMA POINTER TO CW2 

GETS MEMORY ADDRESS OF BEGINNING 
ARE WE TO READ INTO CORE 

YES. TURN ON IN BIT 

LOAD DMA CW2 

POINTER TO CW3 


GET WORD COUNT 

LOAD DMA WORD COUNT 

GET READ TAPE COMMAND 

ARE WE WRITING? 

YES. REPLACE IT WITH WRITE 
OUTPUT IT | 

AND START DMA 

WAIT FOR COMPLETION 

(ONLY EOF, NO WRITE RING) 
NORMAL EXIT 

NORMAL ENTRY 

BUMP RETURN POINTER TO MASK 
GET CONTROLLER STATUS WORD 
MASK IT 

FAILURE BITS SET 

YES. GIVE UP TRYING 

NO. BUMP RETURN POINTER 
NORMAL EXIT 


ae 


? 


ne 
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0048 * 

0049 * CONSTANTS 
0050 * 

0051 17332 100000 READ OCT 100000 
0052 17333 000011 REW OCT 11 
0053 17334 000031 RWS OCT 25) 
0054 17335 001400 SEbL1l OCcT 1400 
0055 17336 000301 wWcc OCT 301 
0056 17337 000203 RCC OCT 203 
0057 17340 000161 GWFM OcT 161 
0058 17341 000110 CLR OCT 110 
0059 17342 000043 FSF OCT 43 
0060 17343 000040 BOT OCT 40 
0061 * 

0062 17344 107707 SAFE CLC DMA,C 
0063 17345 114002 JSB 2,1 
0064 17346 017322 DEF CHECK 
0065 * 

0066 17347 020010 CW OCT 20010 
0067 17350 017353 CWe2 DEF BEGIN 
0068 17351 177767 OCT “11 
0069 *t 

0070 17352 017350 FIRST DEF CW2 
0Oo71 * 

0072 17353 000000 BEGIN BSS 1 

0073 17354 O00000 wWDCNT BSS 1 

0074 17355 O00000- ENTRY BSS 1 

0075 17356 000000 BSS 6 RESERVE SPACE FOR REMAINING DUMMY 
0076 ** WORDS 
OO77 + ASSEMBLER DEFINITIONS 
0078 * 

0079 ©oOd011 CMMD FQU 118 
0080 00007 DMA EQU 7B 
0081 00003 DMA2 EQU 3B 
0082 O00001 SR EQU 1B 
0083 00001 B EQU 165 
0084 00000 A EQU 6) 

0085 * 

0086 END 


— 
fQ 
x 
-~ 
ta 
= 
WY 
« 
wy 
[aA 
oO 
ham [os 
[e) 4 
(@) fQ 
ie) 
oO 
fxQ a 
wo re 
<t Oo 
m& oO 
i®) 


oUbeLSL 


A ‘our ‘SulOj ssaulsng s10ow @® paplopayyy snonuijuoD 


a 
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0001 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
00 34 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 


0056 


17700 


17700 


17700 
17701 


17702 


17703 
17704 
17705 
17706 
17707 
17710 


17711 


17712 
Leis 3 
17714 
17715 
17716 
17717 
17720 
17721 
17722 
17723 
17724 
17725 
17726 
17727 


107700 
063770 
106501 
004010 
002400 
006020 
063771 
073736 
006401 


067773 


006006 
027717 
107700 
102077 
027700 
017762 
002003 
027712 
003104 
073774 
017762 
017753 
070001 
QO73775 


HP BBL - 


ASMBsA,ByL 


BEGIN 


LOOP 


BASIC BINARY LOADER 


BASIC BINARY LOADER 


ORG 


»kSS 


»OZ2B 


17700B 


SR 
SR 
SR 


SR = 


SR = 
SR = 
SR = 


000000 
co00001 
1000090 


102000 


102011 
102055 
102077 


177008 


0,C 
STOR 


(BBL) 


MODES SET BY SWITCH REGISTER 
LOAD CODE 
CALCULATE CHECKSUM AND COMPARE ONLY 


COMPARE CODE 


HALTS 


COMPARE FAILURE IN CODE 
CHECK LOC PTR TO SEE ADDRESS 
CHECKSUM ERROR 

MEMORY LIMIT FAILURE 

LOADED SUCCESSFULLY 


DISABLE INTERRUPTS 
ASSUME STORE QPERATION (STA PTR,I) 
READ SWITCH REGISTER INTO B 


IS LSB =1 

YES. COMPUTE CHECKSUM ONLY. (NOP) 
IS MSB =1 

YES, COMPARE CODE (CPA PTR,I) 


SKIP INTO READ LOOP fu cd 
THERE MUST BE LESS THAN it NULLS 
BETWEEN BLOCKS, BUT 285 IN LEADER 


BUMP NULL COUNT IN B REG 


SUCCESS HALT, ALL TAPE READ 
RESTART OPERATION 

GET BYTE 

IS IT NULL? 

YES,SUCK UP LEADER, OR GAP NULLS 
COMPLEMENT INTO WORD COUNT 


EAT UP NULL BYTE 


PUT ADDRESS INTO B AS START OF CHECKSUM 
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17730 063775 CONT LOA PTR CKEECK THAT WE DON'T OVERRUN THE LOADER 


17731 043772 ADA FENCE 

17732 002040 . SEZ 

17733. O2Z7751 JMP BOUND NO GOOD 

17734 017753 JS8 PACK GET NEXT WORD OF DATA 

17735 044000 ADB A B HAS THE CHECKSUM GROWING IN IT 
17736 OCO000 CELL NOP ; NOP, STA OR LDA WILL BE HERE 
17737 002101 CLE,RSS 

17740 102000 HLT fe) COMPARE FAILURE HALT 

17741 037775 1SZ PER INCREMENT ADDRESS POINTER 

17742 037774 ISé CNT INCREMENT CNT, SKP AFTER LAST WORD 
17743 027730 JMP CONT KEEP ON TRUCKING 

17744 017753 JSB PACK NOW GET THE CHECKSUM 

17745 054000 CPB A . IS CHECK IN B EQUAL ONE READ IN? 
17746 O27711 JMP LOOP-1 OK, CONTINUE 

17747 102011 HLT 11B CHECKSUM ERROR 

17750 027700 JMP BEGIN 

17751 102055 BOUND HLT 558 MEMORY LIMIT VIOLATION 


; POINTER IS NOW UP TO LOADER CODE 
17752 027700 JMP BEGIN 


17753 000000 PACK NOP 


17754 017762 JSB RDR GET BYTE 
17755 001727 ALF,ALF PUT INTO HI BYTE 
17756 073776 STA TEMP SAVE 
17757 017762 JSB RDR 
17760 033776 IOR TEMP MERGE 
17761 127753 IMP PACK, 1 RETURN. WORD IN A 
17762 000000 RDk NOP TTY ON LINE 168 
17763 ice) STC Pry C START PAPER TAPE READER 
17764 102316 SFS TTY 
17765 027764 IMP = 1 NOTHING YET 
17766 102516 LIA TTY CHAR INTO A 
17767 127762 IMP ROR, 1 
17770 173775 STOR STA PTR, I 
17771 153775 COMP CPA PTR,I 
17772 160100 FENCE ABS -BEGIN 
17773 177765 M13 ocT -13 
17774 000000 CNT BSS 1 
17775 OO0000 PTR BSS 1 
17776 000000 TEMP BSS 1 
00000 A EQU ) 
00001 B EQU 1 
00016 Pry EQU 16B 
END 


NO ERRORS* 


aa 


A “out ‘gsuu0y ssauisng as00yW @ papyojsayu| snonuljuoyD 
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ASMByAy8eL 


0001 


RRORS* 


Be 
ban) 


NO 


i 


hc 5. eet at 


a 


a9¢ 


“16 
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0001 ASMBysAyBelL 

0003 00101 ORG 1018 

0004 * 

0005 060101 014026 DEF INPUT INPUT FROM CEIO 

0006 00102 014133 DEF LIST LIST OUTPUT TO IOMEC PRINTER 

0007 00103 014002 DEF PUNCH BINARY OUTPUT TO CHIO 

0008 3 

0009 001CE6 ORG 1063 

0010 ** 

0011 00106 013777 ABS CLEAN-1 END OF FREE CORE 

0012 * 

0013 * 

0014 14000 ORG 140008 

0015 a 

0016 

0017 ns 

0018 14C00 103513 CLEAN LIA 13B,C TIGHT LOOP TO EAT UP CHIO BUFFER 

0019 14001 026000 JMP CLLAN 

0020 * 

0021 14002 000000 PUNCH NOP 

0022 14003 .002021 SSA,RSS CHECK THAT COUNT IS NEGATIVE 

0023 14004 102001 HLT 1 FAIL HARD 

0024 14005 072326 STA CNT 

0025 14006 076324 STB BUF SAVE BUFFER ADDRESS 

0026 * 

0027 14007 162324 LOOP2 LDA BUF, I GET NEW WORD OF BINARY 

0028 14010 001727 ALF,ALF ROTATE LEFT BYTE DOWN 

0029 14011 016020 JSB OUT AND GET IT PUNCHED OUT 

C030 14012 162324 LDA BUF, I GET SECOND BYTE 

0031 14013 016020 JSB OUT 

0032 14014 036324 ISZ BUF READY PTR TO NEXT WORD 

0033 14015 036326 Isz CNT ARE WE DONE? 

0034 14016 026007 JMP LOOP 2 NO 

0035 14017 126002 JMP PUNCH,I YES, PAU 

0036 7 

0037 14020 000000 OUT NOP 

0038 14021 022303 XOR INV . INVERT BITS 6 AND 7 TO UNDO THE HARDWARE 

0039 14022 102213 SFC 138 IS CHIO READY TO TAKE IT? 

0040 14023 026022 JMP = NO a >. a JiR 

0041 14024 102613 OTA 13B OUTPUT RT. BYTE TY | ADK ics 

0042 14025 126020 JMP OUT,I RETURN LJ ene. lore oO plain hs 

yece ata Ry bandle 244956 j/co (LE FSG 
Lvpeut IT41G pot pf o2%le 

ak, ; 17SG7 pe ; ty (3% 
puraal. 1567 (0% Ge 
Khe qos tet PDS 
he ee fe Cet loloin @ OD is Bia 2 


es eecl nS (Ppoy 106 eg7 
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0045 
0046 
0047 
C048 
0049 
0056 
0051 
0052 
0053 
0054 
0055 
0056 
OO57 
0058 
0059 
0060 
0061 
0062 
0063 
O0C64 
0065 
0066 
0067 
C068 
0069 
0070 
0071 
vdO72 
0073 
0974 
09075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
O0&5 
0086 
0087 
0088 
0089 
0090 
0091 
0092 


0003 #01 


14626 
14027 
14030 
14031 
14032 
14033 
14034 
14035 
14036 


14037 
14040 
14041 
14042 
14043 
14044 
14045 
14046 
14047 
14050 
14051 
14052 
14053 
14054 
14055 
14056 
14057 
14060 
14061 


14062 
14063 
14064 
14065 
14C66 
14067 
14070 
14071 
14072 
14073 
14074 


OooccCcO 
002020 
102002 
003004 
072326 
076324 
076325 
002400 
072327 


016062 
036327 
162325 
012373 
005727 
030001 
ti2325 
016105 
026122 
016062 
036327 
162325 
O2’2312 
030001 
172325 
036325 
016105 
026122 
026037 


000000 
616075 
056314 
026063 
056315 
002001 
126062 
016075 
056314 
026122 
102003 


SLO: -LNPUT 


INPUT 


LOOP 


READ 


FROM. CHTO 


ALL NULLS ARE STRIPPED FROM ASCII INPUT STREAM* 


NOP 
SSA 
HLT 
CMA 
STA 
STB 
STB 
CLA 
STA 


JS6 
Isz 
LDA 
AND 
BLF 
IOR 
STA 
JSE 
JMP 
JSB 
ISZ 
LOA 
AND 
IOR 
STA 
1S2 
JSB 
JMP 
JMP 


NOP 
JSB 
CPB 
JMP 
CPB 
RSS 
JMP 
JSB 
CPb 
JMP 
HLT 


»INA 


»BLF 


CHECK TO BE SURE THEY WANT ASCII 
2 NO. FAIL KARO 
INVERT COUNT 


CNT 

BUF SAVE BUFFER ADDRESS 

TR PUT POINTER 

CCNT RESET # OF CHARS READ 
RFAD GET LEFT CHAR 
CCNT INCREMENT # READ 

PTR,I GET OLD WORD 

K377 ERASE LEFT CHAR 

POTATE CHAR IN B UP 

1 MERGE INTO 8B 

PTRg i STORE 
CHECK SEE IF WE ARE DONE 
DONE YES 

READ GET RIGHT CHAR 

CCNT BUMP COUNT 

PTR,I GET OLD WORD 

K1774 KEEP GOOD CHAR 

B MERGE IN B5 

PTRyI STORE NEW WORD 

PTR READY TO WORK ON NEXT WORD 
CRECK 
DONE 
LOOP NO 
GET GET A CHAR 
LF IGNORE LF'S IN GENERAL 
nO 
CR BUT LOOK FOR CR-LF 
READ,I NO CR, JUST CRDINARY CHAR 
GET LOOK FOR A LF NOW 
LF 
NONE END OF RECORD GOT HERE 
3 SEQUENCE WRONG, FAIL HARD 
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14075 
14076 
14077 
14100 
14101 
14102 
14103 
14104 


14105 
14106 
14107 
14110 
14111 
14112 
14113 
14114 
14115 
14116 
14117 
14120 
14121 


14122 
14123 
14124 
14125 
14126 
14127 


14130 
14131 
14132 


000000 
FO2313 
026076 
1065.13 
006003 
026076 
076331 
126075 


o9000C0 
062327 
042311 
002020 
002400 
042330 
052415 
102004 
066331 
174000 
036326 
036105 
126105 


162324 
012312 
066327 
652300 
006400 
076321 


062327 
066324 
126026 


Gr 
i” 
—3 


CHECK 


DONE 


NOP 
SFS 
JMP 
L13 
S725 
JMP 
STB 
JMP 


NOP 
LDA 
ADA 
SSA 
CLA 
ADA 
CPA 
RLT 
LDB 
STB 
TSzZ 
ISZ 
JMP 


LDA 
AND 
LDB 
CPA 
CLB 
STB 


LDA 
LOb 
JMP 


SIO INPUT EROM Chio 


+RSS 


CHAR 
A,I 
CNT 
CHECK 


CHECK,1 


BUF ,1 
K1774 
CCNT 
STAR 


RLEN 
CCNT 


BUF 
INPUT,1I 


IS CHAR HERE FROM CHIO 
NOT YET 
PUT INTO B 


IS IT A NULL? 

SWALLOW ALL NULLS ON INPUT 
TEMP SAVE 

SUCCESS RETURN 


HOW MANY CHARS HAVE BEEN READ? 


IS IT MORE THAN HP ALLOWS 
IF SO SAVE FOR LIST LATER 
NO, STORE AT BEG OF BUFFER 
BEGINNING OF SPECIAL BUFFER 
CHECK FOR RUN AWAY 


FAIL HARD ON TOOO00O MUCH INPUT 


SAVE IN SAID BUFFER 
HAVE WE GOT ENOUGK? 
NO 
YES 


GET FIRST WORD OF BUFFER 
AND FIRST CHAR OF THAT 
PICK UP NUMBER OF CHARS 
WAS FIRST CHAR A '*!? 

YES. PUT # OF CHARS _ O 
FOR LISTER TO EXPAND LATER 


COUNT IN A 
BUFFER ADR IN B 
NORMAL RETURN 


Continuous Interfolded @® Moore Business Forms, Inc. v 


PAGE GOO5 #01 FP 


0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
C147 
0148 
0149 
O:150 
0151 
0152 
0123 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 


0167 


14133 
14134 
14135 
14136 
14137 
14140 
14141 


14142 
14143 
14144 
14145 
14146 
14147 
14150 
14151 


14152 
14153 
14154 
14155 
14156 
14157 
14160 


14161 
14162 
14163 
14164 


000000 
002003 
026207 
052310 
Q26211 
002020 
102005 


003004 
072326 
076324 
002400 
072317 
072322 
066301 
016265 


162324 
016161 
162324 
001727 
016161 
036324 
026152 


000000 
016214 
036326 
126161 


e210. LPs? 


LIST 


LP 


LP2 


PR 


TO IOMEC 
NOP 
S2A,RSS 
JMP CRLF 
CPA M1 
JMP EF 
SSA 
HLT 5 
CMA,INA 
STA CNT 
STB BUF 
CLA 

STA SWIT 
STA KCNT 
LDB MG 
JSB BLANK 
LDA BUF,I 
JSB PR 
LDA BUF ,I 
ALF,ALF 
JSB PR 
Is2 BUF 
JMP LP2 
NOP 
JSB P 
ISZ CNT 
JMP PR,I 


PRINTER 


ENTRY POINT TO IOMEC LINE PRINTER DRIVER 


IS CHAR COUNT ZERO? 

YES, JUST LINE FEED 

IS IT A FORM FEFD REQUEST? 

YES 

MAKE SURE IT IS A CHARACTER COUNT 
FAIL HARD 


MAKE AN IS@ COUNT 

SAVE BUFFER ADDRESS 

RESET COUNT OF OUTPUT CHARACTERS 
ODD/EVEN SWITCH 


COUNT OF BLANKS 
TO BE SPACED OUT OVER HOLES 


GET PACKED WORD 
PRINT IT (EVENTUALLY) 


ROTATE LOW BYTE UP 
BUMP WORD POINTER 
KEEP ON TRUCKING 


GET IT PRINTEO 
ALL DONE YET? 
NO, MORE REMAINS 
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0169 
0170 
0171 
O12 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
O195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
020% 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
O212 
0213 
0214 
0215 
0216 
O217 
0218 
0219 


OOC6é #01 


14165 
14166 
14167 
14170 
14171 
14172 
14173 
14174 
14175 
14176 
14177 
14200 


14201 
14202 
14203 
14204 
14205 
14206 


14207 
14210 


14211 
14212 
14213 


14214 
14215 
14216 
14217 
14220 
14221 
14222 


14223 
14224 
14225 
14226 
14227 
14230 
14231 


036.323 
026207 
062321 
042311 
002020 
026207 
002003 
026207 
003004 
072326 
066330 
076316 


036316 
162316 
001727 
016241 
036326 
026201 


062306 
002001 


062307 
016241 
£26133 


000000 
036322 
066322 
056274 
026223 
016241 
126214 


O12312 
052300 
026232 
016241 
062310 
072323 
126214 


LP3 


FF 


P2 


KP SLO: -LIST TO LOMEC PRINTER 


THIS CODE PRINTS CUT CHARACTERS THAT THE EP ASSEMBLER CUT 


1SZ 
JMP 
LDA 
ADA 
SSA 
JMP 
SZA,yRSS 
JMP 
CMA,INA 
STA 
LDB 
STB 


ISZ 
LDA 
ALF,ALF 
JSB 
ISZ 
JMP 


LDA 
RSS 


LDA 
JSB 
JMP 


NOP 
1SZ 
LDB 
CPB 
JMP 
JSB 
JMP 


AND 
CPA 
JMP 


/ SSB 


LDA 
STA 
JMP 


IS IT A COMMENT 

YES. DONE HERE 

GET COUNT OF CHARS READ IN BEFORE. 
CODE, SO SHORTER 


HP SHOULD HAVE OUTPUT IT ALL 
BORDERLINE CASE? 

YES 

MAKE COUNT OF REMAINDER 


BUFFER BEGINNING 


INCREMENT POINTER 
GET CHAR 

PUT IT ITO POSITION 
PRINT 

DONE YET? 

NO 


GET NEW CARRIAGE FEED 


SKIP TO TOP OF PAGE 


ALL DONE 


BUMP COUNT OF CHARS OUTPUT 


IS THIS THE 5 TH CALL? 
YES, TIME TO CHECK FORM 
NO, PRINT IT 
NORMAL RETURN 


1S. TRIS. A. eee 


YES 

NO, PRINT IT 

COMMENT FLAG TO CODE 

SET COMMENT FLAG TO ZERO 
CODE LINE RETURN 
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0221 
C222 
0223 
022% 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 


OO007 #OQO1l 


14232 
14233 
14234 
14235 
14236 
14237 
14240 


14241 
14242 
14243 
14244 
14245 
14246 
14247 
14250 
14251 
14252 


14253 
14254 
14255 
14256 
14257 


14260 
14261 
14262 
14263 
14264 


14265 
14266 
14267 
14270 
14271 
14272 
14273 


066275 
016265 
062300 
016241 
002400 
072323 
126214 


000000 
036317 
066317 
004010 
026253 
001727 
O125t3 
032320 
016260 
126241 


002020 
016260 
012304 
072320 


126241 


000000 
102314 
026261 
103614 
126260 


o000000 
076316 
062305 
016241 
036316 
026267 
126265 


BP SIO LIST 


Pt 


STUFF 


ODD 


POUT 


BLANK 


TO IOMEC PRINTER 


LDB M8 
JSB BLANK 
LDA STAR 
JSB STUFF 
CLA 
STA FLAG 
JMP Pot 
NOP 
1S2 SWIT 
LDB SWIT 
SLB 
JMP ODD 
ALF,ALF 
AND K377 
IOR SAVE 
JSB PouUT 


JMP STUFF,I 


SSA 

JSB POUT 
AND HI 
STA SAVE 


JMP STUFF,I 


NOP 
SFS 14B 
JMP ae | 
OTA 14B,C 
JMP POUT,I 
NOP 

STB TEMP 
LDA BLNK 
JSB STUFF 
ISZ TEMP 
JMP BLANK+2 
JMP BLANK,I 


BLANK COUNTER 


PRINT THE 


COMMENT FLAG TO ZERO 
COMMENT FLAG_1 
COMMENT LINE RETURN 


ROUTINE TO PACK IOMEC WORDS 
BUMP ODD/EVEN SWITCH 


THIS IS AN ODD ONE 

EVEN SO ROTATE INTO LOW HALF 

MASK JUNK 

GET UPPER HALF 

AND GET IT TO IOMEC 

RETURN, NOTE LINE IS PRINTED IF 
THAT WAS A LINE FEED - AUTOMATICAL 


CARRIAGE CONTROL TEST 

TRUE, GET IT OUT ON LINE 

NOW TO TUCK IT AWAY - ALL CASES 
TILL ‘EVEN’ CAN PRINT IT 


PRINTER READY FOR CHAR 


YES, PRINT SAME 


ROUTINE TO OUTPUT SPACES 


SAVE THE COUNT 
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O261 
0262 
0263 
0264 
0265 
0266 
O267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 


E 00C8 #C1 HP 


OOCOO 
O0O001 


14274 
14275 
14276 
14277 
14300 
14301 
14302 
14303 
14304 
14305 
14306 
14307 
14310 
14311 
14312 
14313 
14314 
14315 


14316 
14317 
14320 
14321 
14322 
14323 
14324 
14325 
14326 
14327 
14330 
14331 
14415 


000005 
177760 
000016 
177762 
025000 
177774 
177772 
000300 
077400 
020040 
100400 
104400 
177777 
177714 
177400 
090377 
000012 
000015 


000000 
000C00 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
014331 
000000 
014415 


NO ERRORS* 


S10 LIST 


TC ILOMEC PRINTER 


EQU 
EQU 


OCT 
DEC 
OCcT 
OCT 
OcT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
DEC 
OCT 
OCT 
OocT 
OCT 


BSS 

BSS 

BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
ABS 
BSS 
ABS 


END 


0 
1 


5 

saat | 

16 

=16 
25000 
-4 

=6 

300 
077400 
20040 
100400 
104400 
ae | 

S52 
177400 
377 

12 

15 


ep pp 


ps 


CHAR 
52 


ASCII 


ate ff 
P4 


